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This document was once a section of a larger one, the rest of which was discarded many 
years ago. I do not remember the detailed reason, though I think it was because the 
remainder was less interesting. The internal evidence — particularly the dates in the 
table of contents ~ make it apparent that the document is relative to the Mark 2.4 
release. This is supported by the label on the binder from which I removed it. 
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CHAPTER l 
NEW FEATURES AND DOCUMENTATION CHANGES 



INTRODUCTION 



This chapter contains information concerning the current status of software 
documentation. Improvements, changes, and new features will be published in 
this chapter with each new software release. 

The organization of the descriptions are by function rather than by software 
item. Thus, particular information may be found in one place rather than 
scattered throughout various descriptions under ALGOL, COBOL, MCP, etc. 

Each description has been assigned a sequence number with the letter "D" as a 
prefix. The sequence numbers are monotonically increasing and are used to 
reference the notes in the index tables. 

The first column of the "Documents Affected" table contains the name of any 
document that is affected by a D-Note. The second column contains the sequence 
number of the note that should be used to modify the publication listed in the 
first column. The third column is the Marketing Number which may be used to 
order the document from the Technical Information Organization. The fourth 
column contains the date of the affected publication. 

The second table is a "KWIC" Subject Index. Each entry is a keyword which 
references the D-Note and function relative to the keyword. 
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IHt HULLOwlNG LIST INDICATES U NUTES THAT WE'RE PUBLISHED IN AN 
tAHLUH iSSUt UF "NEW FEATURtS ANO OQCUMLNT AT I ON CHANGLS" ANO HAVE 
bUdSEUUENTLY BEEN iNCUKHflKAIED IN A bUHRUUGhS INFORMATION MANUAL. 
IHLbE NOTES MAY b£ LRUSSED UUl IN YOUR PERMANENT FILE AND ANY 
PAbhS LHON WHICH ALL Of THF NOTES HAVE BEEN UFLETEO MAY BE 
tLlMiNAUU. 



OQOU 
0003'^ 
00070 
00071 
00072 
00073 
U007« 
0012* 



NEW FEATURES AND OUCUMENTAT IUN CHANGES 



PAGE 1 



NEW FEATURES AND DOCUMENTATION CHANGES 



ALGOL 



UOU5 ALGOL - VECTOH MODE IN ALGOL & FORTRAN - l*-0««72 

«•»«■•»• <•••■»• m •»«■•»> ai an m m m ■• a •>■•••■••■ _ m «••■>•> a a •> - a - — .___ _ 



VECTORMOUE IN ALGOL 



IF "VECTOHMODE" IS SET WhEN COMPILING THE ALGOL C()MPILFR. ALGOL 
tANO DCALGOL) WILL PAKSE AND EMIT VECTORMOOt CODE. 

THE VECTOR MODE SYNTAX IN ALGOL IS AS FOLLOWS! 

DO VECTORMOUE ( VE CTOHID* [ fl 0* ] « I VECTUHIO # HI IO« J I VECTOR1D # 11] 
FOR COUNTVALUE) VECTOR COMPOUND STATEMENT* 

WHERE I 1 INDICATES AN OPTIONAL CLAUSt. 

LALH VECTORlO SPECIFIES THE NAME OF THE VECTOR AND THE STARTING 
POINT IN THAT VECTOR* AN ASTFHISK (*) CAN BE USED TO REPLACE THE 
LAST SUBSCRIPT TO 1NUKATE THE BEGINNING OF AN ARRAY HOW. ALSO, 
SUBSCRIPTS CAN BE EXPRESSIONS. VFCTURID"S CANNOT BE SEGMENTED 
ARHAYS. IN ORDER TU USE AN ARRAY THAT IS tlJNGER THAN 1,023 WORDS 

IN VECTGRMQOE* IT MUST BE DECLARED LUNG. THE ITEMS IN THE HRACKETS 
MAY BE EMPTY. THE CONSTRUCT ID ■ VECTUHIU* ALLUWS THE ABILITY TO 
USL THE SAME ARRAY WITH DIFFERENT STARlING PUINTS. COUNTVALUE IS 
MANDATORY. IT INDICATES THE MAXIMUM NUMBER Of TIMES THF VECTOR 

COMPOUND STATFMENT IS EXECUTED. IT CAN bE ANY EXPRESSION. 

EXPRESSIONS FOR SUBSCRIPTS AND COUNTVALUE ARE EVALUATED ONLY ONCE. 
►RUM LEFT TO RIGHT. PRIOR TO ENTERING VEC TOR MUDE. 

EXPAMPLESt 

DO VECTGRMODE (ARHIDU*]. ARRIU2I2. *1, 

AHRID3 [K-2* II. FUR 100) BEGIN — END; 
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* a m m a K _ _ M > m a » a a a a a a a ■> aa aaaaa a mmmmmmm m »aaaaaaa 

DO VECTURMQUF. CARRIOIC*!. A AsARRlU 1 1 II » FOR X ♦ A BEGIN — END* 
00 VECTURMGOE (AHHID1[*J» FUR N) BEGIN --- END* 

00 VECTURMOUE (AHHlDUK-U. RAOl. FOh N-l) BEGIN — ENDI 
VECTOR C0MPU0N0 STATEMENT 



THE COMPOUND STATEMENT THAT FOLLOWS THE 00 VECTURMOUE MAY TAKE THE 
uENEHAL KGHM OF AN ALGUL CUMPflUNU STAUMENT . HOWEVER. THE SYNTAX 
IHm| IS PEHM1TTEU INSIDE SUCH CnMPOONO STATEMENTS IS RESTRICTED. 

IHL ONLY AHHAYS THAT MAY HE RFFFHFNCED ARt THE ONE TO THREF VECTORS 
INDICATED In THE UO STATEMENT. WITHIN THE VECTOR COMPOONO 
STATEMENT. tACH VECTOHID OR ASSOCIATED 10 IS REFERRED TO WITHOUT 
bUaSCHlPTS. THE MEANING IS ALWAYS TO FtTCH FHOM DR STORE INTO THE 
CURHENT ADDRESS CONTAINED IN THF IC MEMORY F UR THAT VECTOR. 

ANY ARITHMETIC UR LOGICAL VARIABLE IN Tht STACK CAN BE REFERENCED* 
MUwEVER. NO REFERENCE MAY HE MADE THAT MIGHT CAUSt AN INTERRUPT. 
THIS MEANS. In PARTICULAR. THAT CALL BY NAME PARAMETERS. FILES. 
EVLM6. TASKS. AND POINTERS HAY NUT BE REFERENCED. 



ThE UNLY STATEMENTS PEhMlTTEU IN A VECTOR 



(HL FULLUWING ARE 
CUMHOUNO STATEMENT: 

1. BEGIN AND ENU. 

2, IF 



3. UNCONDITIONAL 00 TO. 

THE GO TO STATEMENT TS InTEREPRETEO IN TnE FOLLOWING 
MANNFN. IF THE LAHEL IS LOCAL TU THE VECTOR MODE BLUCK. 
ONLY A HRANCH FflHWARD IS ALLUWED. IF 1HE LABEL IS 
OUTSIDE IHE VECTUR MUDt HLOCk, VECTUH MODE lb EXITED AND 
CODE IS EXECUTED TU bRANCH TO THAT LABEL. AS ALL LABELS 
INSIDE THE VECTOR LOMPUUND STATEMENT ARE LOCAL. NO 
BRANCHING IS PERMITTED INTO THE RANGE OF THAT STATEMENT. 

4. ARITHMETIC ASSIGNMENT STATEMENTS. 

5. EXIT STATEMENT. THIS TS A NEW bTATfc.Mt.NTt IF EXFCUTED. 
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IT MEANS TO EXIT VECTOR MODE AND CONTINUE EXECUTION WITH 
THE FIRST EXECUTABLE STATEMENT FULLUWlNG THE VECTOR 
COMPOUND STATEMENT. 

6. INCREMENT STATEMENT. THIS IS A NEW STATEMENl . IT TAKES 
THE FURMI 

INCHEMENT VECTOHID l# VECTOHID. [VECTURlU ... 1> 

WHERE THE BHACKETS INDICATE OPTIONAL ITEMS. 

THE INCREMENT STATEMFNT INCREMENTS THE ADURESS OF THE 
VECTOHS REFERENCED HY ONF (1) FUR SINGLE PRECISION ARRAYS 
AND TWO (i?) FOR DOUbLE PRECISION ARRAYS. 

INCREMENT A. Bj 

WOULD INCREMENT THE AUDRFSS FOR VtCTUMS A AND 8. 

INCREMENT A» AJ 

WOULD INCREMENT THE ADDRESS FOR THE VtCTQR A TWICE* IT 
IS MURE EFFICIENT TU INCREMENT A VECTOR ADDRESS AFTER A 
REFERENCE TU IT, RATHFR THAN bEFURL. THERE ARE NO 
IMPLIED INCREMENTS IN A VECTOR MODE STATEMENT # THUS. IF 
NO SUCH STATEMENTS APPEAR. THL VECTOR AUDRESSES ARE NEVER 
INCREMENTED. 

f* LABEL DECLARATIUN STATEMFNTS. 

ARITHMETIC EXPRESSIONS IN VECTOR MODE 

ARITHMETIC EXPRESSIONS IN VECTOR MODE ARE STRICTLY LIMITED IN FORM. 
THtY MUST MEET THE FOLLOWING REQUIREMENTS. 

1. PROCEDURE CALLS OF ANY SORT ARE PROHIblTED. THIS MEANS 
THAT ANY CALL ON AN INTRINSICS FUNCTION THAT IS NOT 
INLINE -- EXPRESS OR IMPLIED « IS PROHIBITED. FOR 
EXAMPLE* LN MAY NOT RE CALLED. SINCE EXPONENTIATION 
GENERALLY CALLS AN INfRlNSlC, NON-CONSTANT EXPONENTIATION 
IS PROHIBITED. 



Dumb 

■ ■■■• 

2* 
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REFERENCE TU ANY PUINTE.RS OR CHARACTER ARRAYS IS 
PHUMIblTEU THROUGHOUT VECIOH MUDE AND ITS INVUCATION. 

REFERENCE TU ANY FILE. CALL bY NAME. PARAMETER AT ANY 
LEVEL* ARRAY OR SUbSCRIPTEO VAKIABLL, IUTHER THAN THE 
VEClOKlDS THEMSELVES) IS PROHIbiTEU. SIMPLE VARIABLES 
THAT ARE AT ANT LEVEL flR ARE CALLED BY VALUE PARAMETERS 
MAY Rt REFERENCED. 



EXTENDED VECtOR MUUE IN ALUOL 



IHli EXTENDEU SYNTAX IS ALLUwEU IF "VEC TURMUUE" AND "EXT VECTOR" ARE 
SET WHEN COMPILING THE ALGUL CUMPILER. 

THIS OPTIUN "EXTVECTOR" SPECIFICALLY GIVES ANY ALGUL PROGRAMMER THE 
CAPACITY TU ACCESS DATA UU1SIDE HIS PROGRAM UR TU CRASH THE SYSTEM. 
IF A SITE MANAGER ALLUwS "LXT VEC TOR" TU bE SET IN ANY COMPILER IN A 
bllE* ALL GUARANTEES UE SYSTEM INTEGRITY* FILE OR DATA SECURITY* 
ANU SYSTEM STABILITY ARE SPECIFICALLY AND IRREVOCABLY VOIDED. 



ALUNG KITH 
EXIvtCTOR. 



VECTORMUDE TWO ADDITIONAL FACILITIES ARE ALLUWED IN 



1. PRECFDING THE FIRST VECTORID CAN BE FROM UNE TO THREE 
INCREMENTS. ENCLOSED IN BRACKETS. FUR EXAMPLEl 

DD VFCTDRMOUE ( £ 2 » I+J/K. J MOD KJ» Al*J, Bt*i» C [ * J » FOR N 

begin ... end) 

these increments can each be an expression and are 
evaluated only once for each entry. they incicate the 
amount to be incremented on the respective vectorid for 
each execution of an increment statement. any increments 
omitted are assumed to be une 11) for single precision 
vectokids and two (if) for double precision vectorids. if 
a vectorid is double precision and an increment is 
pruviueu it will be the prugrammers responsibility to 
insure that it is a multiple uf twu. (otherwise the 
lower half uf one part and thl higher half of another 
part will he the operands thai are loaded or stored into.) 
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2. READING OR SETTING THF INCREMENTS DYNAMICALLY IS ALSO 
ALLOWED. FUR EXAMPLE! 

00 VFCTORMOOE (12, Z+J/K. T+P0K1. A[*J# EH*3» Cl*]# FOR N) 
BEGIN 

Ala B * c; 

INCREMENT A. U* CJ 

IF A. INCREMENT * 2 THEN A. INCREMENT! ■ 6> 

A is B ♦ C ♦ AJ 

B. INCREMENT !• I ♦ J* 

Kla C. INCREMENT! 

INCREMENT A. b# CI 
END; 

VECTORMQOE IN FORTRAN 



VECTOR MODE IS ALLOWED IN FORTRAN ONLY IH 

1* THE COMPILER HAS BEEN COMPILED WITH THE OSER OPTION 
VECTORMODEISALLOWEO SET* 

2. THE USER HAS SET THE OPTION VECTOKMODt F OR THE PORTION OF 
THE PROGRAM HE WANTS THE COMPILER TO TRY TO GENFRATE 
VECTOR MOUE CODE IN. 

3. THE USER HAS ENCODED A LOOP IN FORTRAN THAT HAS THE 
FOLLOWING BEHAVIORAL CHARACTERISTICS! 

A. IT IS A DO LOOP OR A LOOP CONSTRUCTEU WITH IF 
STATEMENTS THAT FUNCTIONS EUUlVALENTLY TO A 00 LOOP. 

B. THE LOOP IS ENTERED ONLY FhOM THE "NODE" 
IMMEDIATELY PHECEEDING THE LOOP. THAT IS# THE LOOP 
IS ALWAYS FALLEN INTO. NO STATEMENT BRANCHES INTO 
THE LOOP AND NO STATEMENT BRANCHES TO THE FIRST 
STATEMENT OF THE LOOP EXCEPT THE ACTUAL LOOPING AND 
TESTING CODE. 

C. THE INCHEMENTED EXPRFSSION IS A CONSTANT LESS THAN 
OR EUUAL TO THHFt. 
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U. THt FINAL ANU INITIAL VALUES ARE INTEGERS AND ARE 
CONSTANT WITH RESPECT TO THt LUUP. THAT IS, If THt 
TNiTlAL AND FINAL VALUES ARL NOT CONSTANTS* THEN 
THtY MUST NUT BE ALTERED WITHIN THt LOOP. 

E. THE CONTROL VARIABLE MUST NOT til IN COMMON. 

F. NO CALL. 10 SlATtMfcN'fS. PAUSE. ZIP. CLOSE. OR OTHER 
FILE HANDLING STATEMENTS ARE ALLOWED. 

G. NO FUNCTION REFERENCES ARE ALLUWEl). 

H. INTRINSIC CALLS INCLUDING ** AKE NUT ALLOWED UNLESS 
THE RESULT UF THE CALL IS INVARIANT W1IH RtSPECT TU 
THE LOUP. 

I. IF ARHAYS OR COMMON ELEMENTS ARE ALTEREO WITHIN THE 
LOUP. OR ARKAYS ARE REFERENCED WITHIN THE LOOP 
USING A SUBSCRIPT THAT CHANGES WITH EACH ITERATION 
WITHIN THE LUUP. THEN THERE MAY NOT BE MOKE THAN 
THHEE SUCH USAGES. THAT OUES NO! MEAN A LIMIT OF 
THREE ARHAYSt 



GO 10 
10 AC I ) « 



I ■ 1. N 
AC I ♦ 1) + A ( I - 1) ♦ b CN) 



THt ABUVt LOOP WOULD GENERATt VECTOR MODE CODE IF 
THt 01HEK CUND1T10NS ARE MtT. btCAUSE THERE ARE 
ONLY THREE ARRAYS RtING USED WITH VAHY1NG 
SUBSCRIPTS. If b CN) HAD BEEN REPLACED BY B (I) OR 
A CI ♦ ?), THEN NU VFCTUR CuOE WOULD bE GENERATED. 
IF THE STATEMENT HAD HEEN 



10 



b(N) = ACI) ♦ All +1 ) ♦ A (I ♦ 3) 



o « 



fHEN NO VfcCTUH MODF WUULD bt GtNERATED. bECAUSE 
WHILE ONLY THREE AKRAY SUBSCRIPTS WERE VARYING A 
FOURTH ARKAY WAS BEING ALTERED IN VALUE. 

CALL AN ARRAY A COMMON ELEMENT BLING ALTERED OR 
BEING USED WITH VARYING SUBSCRIPTS A "VECTOR" ARRAY. 
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A VECIOR AHRAY CANNOT BE RtFERtNCEU IN A PURELY 
COND1110NAL MANNER. OTHERWISE NO VECTOh CODF IS 
GENERATED. 



UU 10 Is 1» 10000 

10 IE (I.LT.bO) ACI ) « ACI ) ♦ 1 

THE ABUVF. EXAMPLE WOULD NOT UENtRATE VlCTOK CODE. 

00 10 I * It 10000 

A(I) « ACI) ♦ 1 

10 IF II .LT.bO) A( I) * A(l) ♦ 1 

THE ABUVE EXAMPLE WOULD IF THE OTHER CONDITIONS ARE 
MET. 

K. THt PARTIAL DERIVATIVE OF ALL OK 1 HE SUbSCRIPT 

EXPRESSIONS WITH RESPECT TO THE CONTROL VARIABLE 

MUST BE AN INTEGER WHICH IS CONSTANT WITH NESPECT 
TO THE LOOP. 

THIS ESSENTIALLY MEANS THAT IE THE SUBSCRIPT IS TOO 
COMPLICATfcU VtCTORMOOE CODE WILL NUT BE EMITTED. 

00 10 K » 1, N 

10 A(I#J) * b(I.K)* C(K»J) ♦ A(I*J) 

THt ABOVE WILL GIVF YUO VECTOR MODE* IE OTHER 
CONDITIONS ARE MET. 

DO 10 K « 1# N 
1U A(K*K) * B(K ♦ K) 

THE ABOVE WILL NOT GIVE VECTOR MODE BECAUSE Of THE 
SUBSCRIPT OE A. IHE SOfaSCRIPT OF B IS ACCEPTABLE. 

L. VECTOR MODE WILL NOT BE USED FOR NON-LONb ARRAYS* 

M, VECTOR MODE WILL NOT BE OSLO FOR FORMAL ARRAYS 
UNLESS LONG IS SET. 

N. ONLY 1NNEKMUST LOOPS WILL GET VECTOR MODE. 
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UOlHf ALGOL - FORMAL PRUCEDURES -,01-15-73 

THt PAHAMETtR CHECKING UUNF FUR FUHMAL PHOCEDURES HAS BEEN 
STANOARUlZfO IN ORDER THAT ALGUL AND FORTRAN PRU^RAM UNITS THAT 
PASS UP RECEIVE PROCEDURE PARAMFURS MAY bE bOUNU TUUETHER. 

wHLN USING PROCEDURE PARAMETERS STRICTLY WITHIN ALGUL, THE OVERHEAD 
uF THE RUN TIME PARAMETER CHECKING COUt CAN bE AVOIDED BY 
SPLCIUCALLY DESCRidlNG THE PARAMETERS UK A FORMAL PROCEDURE. 

GALLS MADE UN SPECIFIED F ORMAl PROCEDURES WILL HAVL ALL PARAMETER 
CHECKING DONE AT CUMPILL TIME. THERE MLt bE NU ADDITIONAL CODE 
EXECUTED. UNLY NUN-FURMAL AND SPECIFIED FORMAL PROCEDURES HAVING 
HAHAMETER DESCRIPTIONS MATCHING THUSE UF THE SPECIFIED FORMAL 
PRUCEUUKE MAY HE PASSED AS ACTOAL PARAMETERS* AN ONSPLCIFIED 
FORMAL PROCEIJURE CANNUT HE PASSED AS AN ACTUAL PARAMETfcR TO A 
SPtCIPlED FUKMAL PRUCEDURF . 

IHt SYNTAX FUR. PROCEDURE AND FUNCTION DECLARATIONS ON PAGE 10-11 OF 
IHE JUNE 1972 EXTENDED ALGOL LANGUAGE INFURMATlUN MANUAL SHUULD BE 
KtVlSEU BY TMESE UEF INITIONSi 

1. CHANGE THE DEFINITION nF <SPFC 1 F 1 C AT I 0N> TOJ 

<SPECIFICATIQN>» t* <SHECIFTERXIDENTIFIER LIST>/ 

<ARRAY SPECIFICATIONS 
<PROCEDURE SPECIF ICAT1UN> 
<PRUCEDURE SPECIFICATIONS l-PROCEDORE <FORMAL PROCEDURE LIST>/ 

<TYP£> PROCFUURE <FOHMAL PRUCEDURE LIST> 
<FORMAL PROCEDURE L1ST>»J= <FURMAL PROCEDURE SPECIFIER>/ 

<FURMAL PNOCEDURE L I ST> , <F URMAL PRUCEDURE SPECIFIER> 
<FCRMAL PROCEDURE SPFC IF I ER> I « « < 1DENT I F I ER>/ 

< I U E N T I F IE R> <SPECIFIFD PARAMEIER PART>J FURMAL 
< S H E C I F" I F U P A R A M t T t H P A R T > J 1 « C )/ 

1<FURMAL PARAMEHK L I S T > ) ; < V A L U t P ART >< SPE C 1 F I C A T I N PART> 



mLMU vE "PRUU DURE " 
"<SHECIF IERb>"S 



ANU 



"<TYPfc> PPuUUURE" FRUI*. THF LIST OF 
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EXAMPL£t 

PROCEDURE P(fll.Q2)l 

PROCEDURE UlOJFORMAL. 

U2(X)>VALUE X) REAL XJ FURMALJ 

THE EMPTY PARENTHESIS MUST bF USEU TO INDICATE NO PARAMETERS. 



uoisa 
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ALOOL AND ESPOL HAVE BEEN MGUIFJED TO ALLOW $ VERSION VV.CCC. WHERE 
VV REPRESENTS THE VERSION* THE URST V REPRESENTS THE MARK NUMBER. 
THE SECOND V REPRESENTS THF I EVEL NUMbER. AND THE CCC REPRESENTS 
1HE CVCLE. 

►OR A USER TO GAIN ACCESS TO THESE NUMBERS. TwQ ADDITIONAL 
COMPILETIME UPTiONS HAVE BEEN IMPLEMEN1EU IN ALGOL AND ESPOLJ 

1* COMPILETIME (20) YIELDS THE VERSION AS AN iNTtGtR. 

At COMPILETIME (20) DlV 10 YIELDS THE MARK NOMBER. 
8. COMPILETIME (20) MOO 10 YIELDS THE LEVEL NUMBER. 

2* COMPILETIME (21) YIELUS THE CYCLE AS AN INTEGER. 

WHEN COMPILING WITH SYSTEM/PATCH WITH THE MARK OPTION SET. THENI 

1» IF ON THE t* CARD THE FIRST STRING AFTER THE NOISE WORD 
IS A STRING OF THREE OR FEWER DIGITS. THEN 

A. THE ALGOL COMPILER WILL REPLACE THE THREE DIGIT 
PATCH NUMBER WITH THE STRlNO OF 10 CHARACTERS AS 
FOLLOWS! VERSION (TwO CHARAl T EKS ) . PEHIUO* CYCLE 
(THHEE CHARACTERS), PERIOD. PATCH (THhEE 
CHARACTERS)! I.E.. W.CCC.PPP. 

U* THE ESPOL COMPILER WILL REPLACE THE STRING THRFE 
UlGiT PATCH NUMHtR WITH THE STRING 0^ EIGHT 
CHARACTERS AS FOLLUWSl VERSION (2 ChAMACTERS). 
CYCLE (3 CHARACTERS). PATCH (3 CHARACTERS). WHEN 
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PRINTED UN A LISTING, THE ESPUL COMPlLtR WILL 
INSERT PEHiUUS BFTWFFN THF. VERSION ANU CYCLF* ANU 
BETWEEN THE CYCLE ANU PATCH NUMBER. 

2* IE ON THE t* CAHO THF FIRST STRING AFTER THE NOISE WORD 
IS A STRING OTHER THAN THREE (OR UwER) DIGITS* THEN THE 
EIGhT-CHARAdER STRING WILL BE UStU. 

wHtN COMPILING WllH "NEW" SET. U A * VERSION CAHD APPEARS IN THE 
SYMbULlC, THEN IF TMF PATCH UECK CONTAINS A * VERSION CARD* THE NEW 
SYMBuLiC HILL bt UPDATED TO THE VERSION AND CYCLt ON THE LAST S 
VERSIUN CARU IN THE PATCH DECK H THE SEUUENCE NUKBtR IS LESS THAN 
IHt UNE UN IMF SYMBULIC. 



UOlHJ 



A L G U L 



POINTFR FXPRfSSIONS - U-U"?2 



SYNTAX FUR <RC1INIEK UESiGHATUH> IS ExPANUEU TO PERMl? USING ANOTHER 
POINTER TO DESIGNATE THt Sl^E OF A NEWLY INITIALIZED POINTER. 

SYNTAX! 

<P0IMER UESIGNAI0H>: :=^01NTFR (<R01MER ^ARAMETEHS>) 

<PUlNTER PARAMF TERS>: j*<ARRAY PARI>/<ARRAY PART>, 
<CHARACTEH SUE>/<ARRAY PART>»<PUlMER primary> 

EXAMPLE » 

PUiNTtK p» u; array a [utbi; kfal r; 

R»=POINTER (A. U)l P!=P01nTER (A. CASE R uF (y, P))» 



UUiJll ALGOL - DOMPlNKO ANU LOA01NF0 IN ALGOL - 01-i>2-73 



fHL ALGUL DCLLAR CARU UPIIONS DUMPINl-U AND LOAulNFO HAVt HEEN 
MODIFIED TO FACILITATE fHtlR USt WITH INTERMEDIAL LEVFL GLIJHAL 
BINDING. THESE CHANGES ARM 

1. THE UUMP1NFU AwD LDAUINFO UHTiUNS MAY BE FOLLOWED BY 
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EITHER AN 
TERMINATED 
FILE NAME 



INTERNAL FILE NAME OR AN EXTERNAL FILE NAME 
WITH A PERIOD AND ENCLOSED IN UOUlES. THIS 
1NKOKMAT1UN IS IN A FORMAT SIMILAR TO THE 



INCLOUE OQLLAR OPTION. THIS PERMITS SELECTIVE INFO 
DUMPING AT SEVERAL POINTS AND SELECTIVE INFO LOADING MORE 
TPAN ONCE TMROOGHOUl A COMPILATION. 



OOMPINFO ANU LOADINFO MOST 
APPEARING ON A DOLLAR CAHD. 



NOW BE THE LAST OPTION 



3. WHEN A NEW LOAOINKU IS DONE ALL OLD INFO STHOCTORE IN 
ALGOL IS RFMOVEO. THOS. COMPILING DIFFERENT PORTIONS OF 
THE SAME PROGRAM. EVEN IF THLY OPtRATE iN DIFFERENT 
ENVIRONMENTS* MAY NOW BE DONE IN THE SAME COMPILATION. 

4. LOADINFO CHANGES ALL VARIABLES IN INFO TO BE GLOBALS AND 
ALL PHOCEDUHES ALREADY COMRILEb TO BE FOHWARO. THIS 
MEANS THAT AN INFO FILE CREATED BY A DUMPlNFfl DONE 
IMMEDIATELY BEFORE A PROCEDORE IN A NORMAL COMPILATION 
WILL BE SOITABLE FOR FOTORE OSE AS GLOBALS IF ONE WISHES 
fO SEPARATELY COMPILE THAT PROCEDURE. 

IN GENEHAL, THE EFFECT OF THESE CHANGES IS TO CONSIDtRABLY INCREASE 
THL NUMBER OF PLACES WHERF UUMPlNFU AND LOADINFO MAY APPEAR IN 
ORDER TO PKODOCE AND OSE AN INFO FILE SOITABLE FOR SEPARATE 
COMPILATION. CAOTION IS GENERALLY REQUIRED ONLY WHEN VARIABLES 
WITH THE SAME NAME ARE DECLARED AT DIFFERENT LEVLLSl A SEPARATE 
COMPILATION WILL ONLY BE ABLE TO ACCESS THE LAST SOCH VAHIABLE SEEN 
BEFORE THE LUADInFO OCCURHED. 



00*18 ALGOL - CASE STATEMENT SYNTAX - 01-29-73 



THE BNF IN THE ALGOL COMPILER IS IN ERROR. IT SHOOLD READ AS 
FOLLOWS ON PAGE 9"5» 

<CASE BODY>Jt« BEGIN<CASE COMPOUND STAT EMENT >END/ 

BEGIMCASE compound statement>;enu/ 

<CAS£ C0MP0UNU ST ATEMENT > I » * <STATEMENT>/ 
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— — — — — — — m m m m — — — — ————————— —————— — ———————— 

<CAS£ COMHOONU STATEMfcNT>;<STATfcMtNT> 
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bOkilSI ALGOL - TAbKVALUF * 01"lb-f3 

Iht TASK AITRlbUTL "TASK VALlJt" HAS bLfc N CHANGED * RUM INTEGER TO 
HEAL TYKE* 



UU*20 ALGOL - INSTALLATION I^NI^ICS - 2222-11- 

TMl INSTALLATION UOLLAK CARD OPTION MAS bELN MODIFIED TO PERMIT 
GKLAUR SELECTIVITY IN CHOUSING I NbT ALL AT I UN InTRINSICS. THE NEW 
l"OKMAl OF ThlS OM'IUN 1*1 

INSTALLATION OOLLAh UPTlUN>lt« INSTALLATION <NUMb£H-L I ST > 
<NUMHER-LIST>1J« <NUMbEK-ELEMENT>/<NUMbfcR-tLEhENT><NUMBER-LlS1>/ 
<NUPBER-FLEPENJ>#<NUM«F. R-LIST>/<EMPTY> 
<NUMbER-ELFMFNT>U= < 1 NST ALL-NO 1 >/< I NS 1 ALL-NO 1 >-< i NST ALL-N0 2> 

iNSTALL-NOl AND INSTALL-NO* ARE UNSIGNtU INTEGERS bETWEFN ONE AND 
^047. INCLUSIVE. NUMbER-ELEMFNTS MUS( HE IN ASCENDING SEQUENCE. 
hllH NU NUMHLR REPEATED. 

examples of correct settings ahfi 

s1nstallai ion 1 2 3 4.15.22 

^installation 100-35*. 400. 4ss-<»57 460-463 

installation 100-2047 
sinstalla tiun 

thl installation card kith no nomber-list is equivalent to the 

numher-l1st 100-204/. 

prion tu processing thl kikst algol statement in any compilation, 
ihl compile* examines thf intrtnsics opuun. only 1 he number-list 
(oh lack thfreuu kjllnmng the last setting of th£ installation 
uptiun encountered phiuh to this time is considered. 

installation lnlrinsicb loaufd are those that were either included 
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AN A RANGE OR EXPLICITLY STATED ON THE LAS1 INSTALLATION SETTING 
ENCOUNTERED. 

A SYNTAX ERROR WILL BE EMITTED IF THE NUMBER-LIST IS NOT IN 
ASCENDING SEfiUENCE* IF ANY Of THE RANGES SPECIFIED OVERLAP* OR IK 
THE SECOND NUMBER IN A RANGE TS NOT LAKGEK THAN THE FIRST NUMBER. 
NUMBERS LARGER THAN 2047 WILL BF TREATED AS IF THEY WERE 2047. 

ANY SPECIFICATION OF THE INSTALLATION OPTION THAT IS ENCOUNTERED 
AFTER THE FIRST STATEMENT OF THE ALGOL COMPILATION CONTINUES TU BE 
IGNORED, 
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THIS ChANGF EXPANDS THE 
mLGQL* DCALGQL* AND ESPULi 

NEW SYNTAX: 



CAPABILITIES OF THE <0N STATFMFNT> FOR 



<0N STATEMENTS »» <ENABLINU UN STATEMENT>/<UlSABL ING ON STATEMENT 

<DISABLING ON STATEMENT >»» « ON<FAULT LIST> 

<ENABLlNG ON STATEMENT:!" UN<FAULT LIST> <FAULT INFORMATION PART># 

<f AULT ACT10N>/0N<t AULT LIST> 
<FAULT INFORMATION PART>»<FAuLT ACTI0N> 

<FAULT LlST>»»» <FAULT NAME>/<FAUL1 LIST>OR<F AULT NA*E> 

<F"AULT NAM£>j :* *ERUD I V IDE/EXPONENTOVERFLOW/tXPONENTUNDF RFLOW/ 

INVALlDlNDEX/INTtGERUVERFLOW/lNACTIVEQUEUE/ 
MEMURYPROTECT/INVALIOOP/LOOP/MLMORYPARITY/ 
SCANPARITY/INVAL I D ADDRESS /ST ACKOV ERF LOW/ 
STRlNGPROTECT/PROGRAMMEDUPERATOR/BonOMOFSTACK/ 
SEttUENCE/INVALlnPROGRAMWURO/iTACKUNDERFLOW/ 

anyfault 
<Fault information pakt>»i» <f s mpty>/kf ault stack history>]/ 

ufault stac* histury> t<f ault number>]/ 

[KFAULl NUMbER>] 
<FAULT STACK H1ST0RY>::« <ARRAY K0W>/<PQINTER EXPRtSSIUN> 
<FAULT NUMBFR>»«= <VARIAbLE> 
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<FAULT ACTI0n>H» <STATEMENT> 

NUTE« INACTIVEQUEUE IS VALID ONLY IN DCALliQLt* BUT TOMOFST ACK # 
SEQUENCE* AND STaCKUNUEKFLUH ARE VALID ONLY IN ESPOL* 

EXAMPLES! 

1. UN ZERUDIVIUF UK 1NVALIDINUEX ( I A C <J ] ] i> 

BEGIN 

J»=J ♦ II cleanup; GQ TO L1I 

ENU 
2* UN ANYI-AULTI 

J. UN M£MOHYPROTECT UK LOOP I G»« 21 
4« UN ZEHUnlVlOt UR I NTEGE HO Vt RF LUW I 
5* ON ANYFAULT [PUINIH ♦ 2 I 1 3 # HANDLF AL I S( 2 ) I 
6. UN ExPUNEMGVERFLUw [ A I * II . RECOVEKCA)* 
(, On AnYFAULI [iJ]t 

BEGIN 

IF J= 6 THEN b(j L2I 

CAiE J OK 
BEGIN 



ENU 



ENUI 
NEh SEMANTICS: 



ihl new <fault list> replacfs The <faolt name> in the old <on 
btarlmtnt>, anu enables the user to arm sevekal faul1s with respect 
to the same <faull act1[)n> (5fe examfleb one and three above)* hr 
10 disarm une or moke faults at the bame time (see example four 
abuvt). note that the uccurrfncl of any gnf. of the faults in the 
<fault list> lb sufficient to caube transfer of control to the 

<FAULT ACI10n>. 

THE NUN-<EMPIY> <FAULT 1NFUHMATIUN PART> PROVIDES THt USER WITH THE 
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STACK HISTGHY AT THE TIME OF THE OCCURRENCE UE THE FAULT* AND/OH 

THL NUMBER CORRESPOND 1 NG TU THE FAULT MND (USEFUL ONLY WHEN MORE 

THAN ONE FAULT IS ARMED WITH RESPECI TU THE SAME <FaULT ACTlON>). 

THE FAULT NUMBER. WHEN INDICATED* WILL BE SET TO ONE OF THE 
FOLLOWING VALUES UPUN OCCURRANCF OF THE CUHRLSPUND I NO FAULTt 

1 ZEROUIVIUE 

2 EXPONENTOVEHFLOW 

3 EXPONENTuNDERFLQw 

4 INVALIUINDEX 

5 INTFGEROVERFLUW 

6 INACTIVEWUEUE (OCALGOL ONLY) 
1 MEMnHYPROTECT 

8 INVALIOOP 

H LOOP 

10 MEMORYPARITY 

11 SCANPARITY 

12 INVALIDAuDRESS 

13 STACKUVERFLUW 

14 STRINGPRUTECT 

15 PROGRAMMtDOPERAlUR 

16 BQTTUMUFSTACK (ESPUL ONLY) 

17 SEQUENCE (ESPOL ONLY) 
lfl INVALIDPROGRAMWURU 

19 STACKUNUERFLUW (ESPOL UNLY) 

THt FORHAT OF THE SIACKH1ST0RY IS THE STANUAHU FURMATj 



UR 



SSSlAAAA«Y,#SSS!AAAA»Y**...»#SSSrAAAAlY. 



SSSIAAAAI Y#(OUDUDDDb )*#.... #SSSIAAAA I Y # ( DUDUDOOO ) . 



WHERE SSS IS THE SEGMENT NUMBER, AAAA IS THE ADDRESS* Y IS THE 
SYLLABLE* # IS A BLANK SPACE. DUDDUDUD IS THE LINE NUMBER (ONLY 
PRESENT IF L1NEINF0 WAS SET DURING PRUBRAM COMPILATION). THE 
PEK1UD (.) ALWAYS TERMINATES THE LAST ENTRY. 

THUS* IN EXAMPLE FIVE ABOVE* THE STACKHISTORY WOULD BEGIN AT PQlNTR 
♦ 2 AND CONTINUE UNTIL EITHER THE AREA OR TH£ STACKHISTORY 
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INFORMATION rtAS EXHAUSTED. 

NOlE THAT THE <FAULT S I ACKH 1 bl UK Y > AND THE <MULT NUMBER* ARE 
UaEU* WITH RESPECT TO ADDRESS* WHEN THt <UN STATEMENT* IS FXECUTFD 
II. E. WHEN THE FAULT IS AHMED)* NOT WHEN THE FAULT OCCURS. THUS* 
IN THE <ON SlATEMENt* 

UN ZERUDIVIDE UtI»*]»bUn J 05«dtJ] + Q 

THE <ARHAY ROW* AC I .* J IS DETERMINED BY THE VALUE OF I AT THE 
EXECUTION OF THE <UN STATEMENT** ANU NUT WHEN ANY ZERUOIVIDE 
ACluALLY OCCURS! SIMILARLY FUR THE <VARIAHLE> ti [ J ] AND J. 

THE NEW FORM OF THE <UN STATEMENT** UN<FAULT LlSTxFAULT 
INFORMATION PAHI>»<FAUL1 ACTION** TO BE KNUWN AS THE "GOTO" FORM* 
UULS NOT REQUIRE THE USER TO DO A "BAD 6U TO" OU ( OF THE <FAULT 
ACIIUN>; THIS "BAD GO TO" WILl HAVE BEEN PERFORMED BY THE SYSTEM. 
CUNSEGUENTLY, PRUGRAM CUNTROL CAN CUNT1NUE FROM THE <FAULT ACTION*. 
FOH EXAMPLE. IN 

BEGIN 

ARRAY I, UIUIVV9V1) 



REAU (FlL* lOOOO* QU 
I i»0> 

UN ZERUUIVlUEt OtIll«1.0E-«7j 
L« ZIUibSqrI (6.32/um>J 

IF CUM ♦ 1X10000 THEN GD TO L 1 I 



ENU* 



THIS EXAMPLE USES THE HARDWARE TO CHECK THE VALUE UF QUI FDR ZERO* 
INSTtAU OF DUING SO EXPLICITLY (THE FORMER IS GENERALLY FASTER)* 

NQTE THAT THE STACK FUR THE •♦GOTO" CASE HAS BEEN CUT-BACK BEFORE 
CONTROL IS TRANSFERRED TU IHt <FAULT ACT1UN>. 



DQ2S2 ALGOL - "ON" STATEMENT SYNTAX - 01-29-73 
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TMt ^DISABLING ON STATEMENT DISABLES. OH UISAHMS, THOSE FAULTS 
CORRESPONDING TO THE <FAULT NAMF>5 IN THE <FAULT LISl>. 

iN GENERAL. THE EXECUTION OE ThE <0N STATEMENT SHOULD HE FASTER 

than previously! moreover, nci block ex11 is requlreu to deactivate 
the armed faults for the block. 



-£-« ALttOL • 1**11**111*1 - n L-£l! CAH ^ UHFN * 02*26-73 

IH1S CHANGE IMPLEMENTS THE ABILITY To WRITE AFTER CAhRlAGE CONTROL. 
IHiS IS A DOLLAR OPTION SE T AROUND A FILE DECLARATION, A SWITCH 
ULE DECLARATION UR AN I/O STATEMENT. IK SET AROUND A FILE 
UECLARATION IT WILL PERTAIN TO ALL 1/0 STAlEMENTS WHERE THAT FILE 
NAME EXPLICITLY APPEARS. 

IF WRITEAFTER IS SET AHOIJND A SWITCH FILE OECLARATIUN > IT PERTAINS 
TO IHQSE I/O STATEMENIS EXPLICITLY USING 1 HE SWITCH FRF. 10. IF 
SET AROUND AN I/O STATEMENT, IT JUST PERIAINS TO THAT 1/u STATEMENT. 



UU«i66 



ALGOL - MOUEL I - 10-16-72 



THIS CHANGE GENERATES MODEL II CODE BY DEFAULT. TO GENERATE MODEL 
1 COUE «SET MODELI HAS TO bE IN THE PATCh DECh WhEN CUMPRING ALGOL. 



----I A L Ci U - ACCEPT AS BOOLEAN INTRINSIC - G1-2V-73 

THE ACCEPT STATEMENT NO* RETURNS A faOOLEAN VALUE. IF IT IS USED IN 
A BOOLEAN EXPRESSION, THE PROGRAM WILL NUT STOP AND WAIT FOR A 
MEbbAGE duT WILL ACCEPT ONE ONLY If THE OHEhATOh HAS ALREADY TYPED 
UNL IN. WHEN A MESSAGE 1 £ WAITING, THE VALUE Of THE FXPKESSION 
rtlLL bE TRUE, OTHERWISE IT WILL HE FALSE. 

tXMMPLEt 

IF ACCEHT (P) THEN 



UU267 ALGOL - ACCEPT Ai BOOLEAN INlHINSIC - 01-29-73 

a a )■ a a mmmmm a mmmmmm mm a a a * a * a mmmmmmmmm m mm mmmmmm 

BEGIN 

RLHt.ACE P bY "SllLL RUNNING"* 

DISPLAY CP); 
ENU» 
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U0274 ALGOL - MtMOHYUUMP - 03-23-73 

mmmmm aaaaa a ■•««—«••«• a mmmmmmmm 

THIS Ct-ANGE IMPLEMENTS THE ABILITY 10 CALL MEMORYDUMP IN DCALGQLt 
THt SYNTAX IS: 

MEMORYUllMP(SlRING)> 

wHLHt STRING HAS TlJ Ht A blX(6) UH EIGHTCS) BIT STHING. 



U0*7a ALGOL - ALUUL - USR CUNTROLU SEUMNTATN - 0J-23-73 

PARAGRAPH KOUR OF U0007 OF SYSTEM MlSCELLANtA ShUULD 
BE MUU1FIEU i>() AS TU REAU: 

UNLY PRCCtDURlS MAY bE INLLUIUO IN A LSER SLGMENT* 



NEW FEATURES AND DUCUMENTAT I UN CHANGES 
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HACKUP 



U0U9 



BACKUP - RECORD CUUNT - 10-PH-/2 



IF THE HECURU UPTIUN 1 S USFD FOR bACKUP* 1HL RECORD COUNT WILL 
INCLUDE THE THKEE HEADER RECORDS PLUS THE ONE bLAN* HECORD OF 1HE 
KILL LABEL If IT EXISTS. THUS* PRINTING RECORD 15 OF A LABELED 
FILE WHICH HAS GONE TO BACKUP WILL ACTUALLY PRINT HECURU 11 OF THE 
FILE* FUR EXAMPLE* TU UBTAlN THE FIRST THROUGH THE TWENTIETH 
RECORDS, THE BIAS OF FOUR IS USFU (RECORD b 2« > . 



UOlHO 



BACKUP - LANGUAGE KEY SPECIFIER - 10-2B-72 



IHE ALGOL* COBOL* ANO FURTRAN KEY SPECIFIERS AKE SIGNIFICANT UNLY 
TO PRUTtH (SYMBOLIC) FILES AnU THEREFORE* SHOULD NOT BE USED FOR 

punch files. 



U0161 



BACKUP 



♦'END" AS RANGF STUP INDICATOR - 10-2B*fl? 



THE EBCDIC STRING "END" MAY BE USED AS A POSSIBLE RANGE STOP 
INUICATCR (BESIDES EITHER <INTFGFH> UK < W EBCD1C STR1NU">) WHICH IS 
EQUIVALENT TU SETTING THE SiuP INTEGER TU 99999999. 



NEW EEATURE S^AND OQCUMENTAT IUN CHANGES 
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BASK 



U0152 BASIC - DOLLAR CARD STATEMENT - Ol-lb-73 

«•••• mMhmw m m m m *k m m wwww m m m m m • «■ m w h m « • » ■» » a» «ft 

bAbK NOW PRUVIDFS THE USER wITh THE ABILITY TO CUNTROL ClJMPILER 
UPT10NS WITH A BASIC PRUGRAM STATEMENT. 

LXAMPLEl 

1U0 S SET LINE iNhU 

TMlb IS PRUVlDtU MAINLY FUR PASIC PRUGRAMS ENTERED THROUGH CANOE 
WHtHL ALL BASIC STATEMENTS MUST BEGIN WlfH A LINE NUMBER, 

SINCE THIS IS A STATEMENT AND NOT A OULLAR CARD* THE OPTION "$"» 
WHICH CONTROLS THE PRINTING OF DOLLAR CARDS, WILL HAVE NO EFFECT ON 
THESE STATEMENTS. 



UOlbH BASIC - "LENGTH" STRING FUNCTION - 01-15-73 

•• •• m m m m » m m m m m m »••■»« * m m m m m w <•«»■» m mmm m m •• » m m m m m m 

THt STRING FONCTIUN "LENGTH". WHICH RETURNS THE LENGTH OF 
CHARACTER STRING* MAY NUN BE ABBREVIATED AS "LEN"» 

tXAMPLEl 

10U A* « "ABC" 
200 L » LEN(A£) 

LINE 200 ASSIGNS L THE VALUE OF 3. 



U0162 BASIC - BASIC CHARACTER DATA EXIENSION - 12-UB-72 



THE HANDLING 0* CHARACTLR STRINGS IN BASIC HAS BEEN EXTENDED IN THE 
FOLLOWING *AYS« 



D0162 BASIC - BASIC CHARACTER DATA EXTENSION 
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1. THE MAXIMUM LENGTH Of A CHAHACTEH STRING HAS BEEN 
EXPANDED FROM 63 TO 2S5 CHARACTERS. 

2. FIVE SYSTEM FUNCTIONS HAVE BEEN ADDED FOR MANIPULATING 
CHARACTER STRINGS. THEY AREl 

A. VAL(SS) 

THIS FUNCTION HAS ONE ARGUMENT* St. THIS 
FUNCTION RETURNS A NUMERIC CONSTANT 
CORRESPONDING TO THE VALUE OF St. St HAY BE 
A STRING CONSTANT* STRING VARIABLE OR A 
STRING EXPHESSION. THE CHARACTERS OF WHICH 
FORM A VALID NUMBER* 

EXAMPLEI 

100 A* * "123. " 

200 BS « "375E+21* 

300 N * VAL(AS ♦ BS) 

400 END 

AFTER THE EXECUTIUN OF THE ABUVE PROGRAM, N 
WILL HAVE THF VALUF 1.23375E+23. 

b. STRI(N) 

THIS FUNCTION HAS ONE ARGUMENT* N* THE VALUE 
RETURNED BY THIS FUNCTION IS A STRING 
CORRESPONDING TO THE VALUE OF IS. N MAY HE A 
NUMERIC CONSTANT* ARITHMETIC VARIABLE OR 
ARITHMETIC EXPRESSION. THE STRING RETURNED 
BY STRt IS THE SAME AS IF THE VALUE OF N HAD 
BEEN PRINTED WITH A "PRINT" STATEMENT. 

EXAMPLEI 

100 S* ■ STR*(1?3) 
200 END 

AFTER THE EXECUTION OF THE ABOVE PROGRAM* Sf 
WILL HAVE THE VALUF "123"* 



00162 BASIC - BASIC CHARACTER DATA EXTENSION - 12*06 
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C. EXTS(SS.S*E) 

THIS FUNCTION "EXTRACTS" A DESIGNATED SEGMENT 
OF A CHARACTEH STRING* THE ARGUMENT S IS THE 
NUMBER QF THE CHARACTER POSITION IN SS AT 
WHICH THE EXTRACTION IS TO START AND THE 
ARGUMENT E IS THE NUMBER OF THE CHAHACTER 
PUSITION IN SS AT WHICH 1HL EXTRACTION IS TO 
END. S AND E MAY BE NUMERIC CONSTANTS* 
ARITHMETIC VARIABLES UR ARITHMETIC 
EXPRESSIONS. SS MAY Bt A STRING CONSTANT* 
STRING VARIABLE OR STRING EXPRESSIONS* 

EXAMPLE! 

100 AS ■ "1234567" 
200 ES * EXTSCAs.3,6) 
300 END 

AFTER THE EXECUTION OF THE ABOVE PROGRAM* ES 
WILL HAVE THE VALUF "3456". 

0. SCN(SS»OS»N,S) 

THIS FUNCTION RETURNS AS A VALUE THE NUMBER 

OF THE CHARACTER POSITION At WHICH A 

SPECIFIED OCCURRENCE OF A STRING SEGMENT 
OCCURS WITHIN ANOTHER STRING. THE FUNCTION 

RETURNS A VALUF OF ZERO IF THE SPECIFIED 

OCCURKENCE OF THF STRING SEGMENT DOES NOT 
EXIST. 

SS IS THE STRING IN WHICH THE STRING SEGMENT 
OCCURS AND US IS THE SEGMENT WHICH IS DESIRED* 
THE ARGUMENT N TS THE NUMBER OF THE 
OCCURRENCE WHICH IS DESIREU AND THE ARGUMENT 
S IS THE NUMBEK OF THE CHARACTER POSITION IN 
SS AT WHICH THE "SCAN" IS TU BEGIN* SS AND 
S MAY BE STRING CONSTANTS* STRING VARIABLES 
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OR STRING EXPhESSIONS ANU S AND E *AY BE 
NUMfcRlC CUNSfANTS. ARITHMETIC VARIABLES OR 
ARITHMETIC EXPRESSIONS* 

EXAMPLEI 

100 SS ■ "ABHC6HDBBEBB" 
200 PS » "BB" 
300 A * SCNCSS.Pi.l.l ) 
400 B « SCN(SS»PS#1#4) 
500 C « SCN(S$»PS»2»?') 
600 D * SCN(5S.PS»5»l ) 
700 END 

AFTER THE ABOVE PROGRAM IS EXECUTED A WILL 
RAVE THE VALUE TWO. B WILL HAVE THE VALUE 
FIVE. C WILL MAVF THE VALUE 11 AND "D" WILL 
HAVE THE VALUE IfKQ BECAUSE STARTING WilH THE 
FIRST CHARACTER OF S$ THERE IS NO FIFTH 
OCCURRENCE OF PS. 

t. REPS(SS»OS.NS.N»S> 

THIS FUNCTION RETURNS A STRING WHICH IS 
FORMED BY "REPLACING" SPECIFIED OCCURRENCES 
OF A SEGMENT OF A STRING WITH NEW STRING 
SEGMENTS. 

THE ARGUMENT SS IS THE SOURCE STRING IN WHICH 
THE "REPLACEMENTS" ARE TO UCCUR. OS IS THE 
STRING SEGMENT WHICH IS TO BE REPLACED BY THE 
NEW SEGMENT NS» THfc ARGUMENT N SPECIFIES HON 
MANY OCCURRENCES OF US ARE 10 BE REPLACED AND 
THE ARGUMENT S SPECIFIES THE NUMBER OF THE 
CHARACTER POSITION AT WHICH THE SEARCH AND 
REPLACEMENTS ARE TO BEGIN. AS WITH THE OTHER 
FUNCTIONS THE STRING ARGUMENTS MAY BE STRING 
CONSTANTS* STRING VARIABLES UR STRING 
EXPRESSIONS AND THE NUMERIC ARGUMENTS MAY BE 
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NUMERIC CONSTANTS. ARITHMETIC VARIABLES OR 
ARITHMETIC EXPRESSTQNS. 

IF THE ARGUMENT N (THE NUMBER OF REPLACEMENTS 
TO BE MADE) IS LlSS THAN ZERO. THEN ALL 
OCCURRENCES OF Q*. STARTING WITH THE STH 
CHARACTER IN THE STRING St WILL BE REPLACED* 
IN THIS CASE THE STRING TO BE REPLACED (I.E.. 
0$) CANNOT BE THE NULL STRING. 

IF N IS EOUAL TO ZERO NU REPLACEMENT ARE 
MADE AND THE VALUE RETURNtD BY REPS IS A 
STRING EQUIVALENT TO SS. 

WHEN N IS GREATER THAN ZERO. THEN BEGINNING 
WITH CHARACTER S OF SS. N OCCURRENCES OF OS 
ARE REPLACED BY NS. 

EXAMPLE I 

100 AS « ABBC6B0BBEBB" 

200 BS ■ "BR" 

300 OS « REPS(A*.BS. "-". 1.4) 

400 ES « REPS(AS.BS."X"»-1.7) 

bOO Ft * REPS(AS.BS»"*".2»1> 

600 END 

AFTER EXECUTION OF THE ABOVE PROGRAM OS WILL 
HAVE THE VALUE "ABRC-DBBEBB". ES WILL HAVE THE 
VALUE "ABBCBBDXEX" AND "F$" WILL hAVE THE VALUE 
"A#C#DBBEBB". 



00163 BASIC 



TIME AND DATA FUNCTIONS - 11-12-72 



THE 86700 BASIC LANGUAGE NOW PROVIDES THE PROGRAMMER WITH THREE 
TIME FUNCTIONS AND TWO DATA FUNCTIONS WHICH CAN BE REFERENCED BY A 
BASIC PROGRAM. 

TIME FUNCTIONSI 



U 1 6 3 
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TIME UK UAY AS 



STRING SIX 



1* CLKS 

THIS FUMCIIflN PROVIDES THE 
CHARACTERS LONG IN THE FOKM» 

HH *MMb 

WHERE "HH* IS HOURS* "MM" IS MINUTES, ANU "B" IS A BLANK SPACE. 
THE TIME IS bASEU UN A 24-HUUH CLUCK. 

2. BCL 

THIS FUNCTION RETURNS THE TlMt OF UAY, BASEU UN A 2^-HOUR CLOCK, 
IN HOURS ANU DECIMAL FRACTIONS OF THt HOUR. FUR EXAMPLE. A 
PKUGRAM HUN AT 3Mb PM WHICH REFERENCES "bCL" WILL RECEIVE AS A 
VALUE FOR "bCL" 1HE NUMbEK IS. 75. 

3. TIM 

this function retukns the flapseu pkucessur Tint since the job 

BEGAN. THIS TIME IS EXPRESSED IN SECUNUS ANU DERMAL FRACTIONS 
OF SECONDS. 

UATfc FUNCTIONS* 



1. UATi 

THIS FUNCTION PROVIDES THE CURRENT DATE AS A STRING EIGHT 
CHARACTERS LONG IN THE FORMI 

MM/UO/YY 

WHERE "MM" IS THE CURRENT MONTH* "UU» IS THE CURKENT DAY. ANU 
"YY" IS THE CURRENT YEAR. 

2. 10A 

THIS FUNCTION RETURNS A SIX-DIGIT INTEGER Of THE fONMi 

YYMMDD 

WHERE "YY" IS TWO DIGITS REPRESENTING THE YEAR, "MM" IS TWO 
DIGITS REPRESENTING THE MONTH, ANU "0D" IS TwO DIGITS 
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TIME AND DATA FUNCTIONS - H-12-72 



PAGE 26 



HEPHESEnTINU THF DAY. 

ALL FIVE FUNC1I0NS MAY HE USED DIRECTLY IN A "PRINT" STATEMENT IE* 
U.» "100 PulNl DATS"). ALSO. THE FUNCTIONS "CLK$" AND "DAT*" MAY 
bE ASSlGNEu IG STRING VARIABLES. AND "TIM", "BCL". AND "IDA" MAY BE 
ASi»i(jNEU TU NUMERIC VAHlAHLES. 



U0164 



BASIC - RESTORE & DATA STMT tXTENSlUNS - 11-U5-7? 



IHt "DATA" STATEMENT IN BASIC HAS BUN EXTENDED SO lHAT NOW STRING 
DAIa AND NUMERIC DATA ARE STORED INTERNALLY AS TWO SEPARATE DATA 
LISTS. 

IN AUDITION. IT IS ALSO NU LONGER NECtSSARY TU ENCLOSE IN UOOTES 
bTRIM, CUNSTAN1S APPEARING IN DATA STATEMENTS. F OR UNQUOTED 
STRINGS IN DATA STATEMENTS I FADING bLANKS ARE IGNORED* BUT ANY 
BLANfvS FULLOhING THL STRINO ARE NOT IGNORED. AN UNQUOTED STRING IS 
CONSIDERED TO HE ANY DATA LIST ELEMENT *H1CH DUES NUT BEGIN WITH A 
WUUTE. NUMBER. + » -. .» OR t» . 

LXAMPLEl 

10 READ A, H. XS. Yt 

20 PRINT "A = " A. "b = " B 

30 DATA FIRST THING. 9, 17. "46" 

aO PRINT "X$«" XS. "Yja" YS 

50 END 

WHtN COMPILLD AND EXECUTED THIS PROGRAM HULL PRODUCE THE FOLLOWING 
U U I P U T » 



A« V B= 17 

XS«FIRST lhlNG Y*s46 

IN THE EXAMPLE. LINE 10 CONTAINS T WU NUMERIC VARIABLES FOLLOWED BY 
1WU STRING VARIABLES AND THE DATA ELEMENTS IN LINE 3u ARE ORDERED 
wIlMUUT REGARD Tl) WHETHER THEY ARE STRING OR NUMERIC CONSTANTS. 
THE UNLY SIGNIFICANT CONS I UER A T I ON IS THAT THE NUMERIC DATA ITEMS 
APPEAR IN IHE ORDER IN WHICH THEY ARE 10 BE ASSIGNED TO THE 
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VARIABLES A AND b» AND THAT THt STHING DATA ITEMS APPEAR IN THE 
URUER IN WHICH THEY ARE TO BE ASSIGNED TO THE STRING VARIABLES XS 

ANU YS. 

THE "RESTORE" STATEMENT HAS ALSO BEEN EXPANDED TO HANDLE THE TWO 
SEPARATE LISTS FOR DATA STATEMENTS. 

THE RESTORE STATEMENT NUW HAS THE FOLLOWING EOHMATl 

RESIORE 

OH 
RESTORE * 

OR 
RESTORE S 

THE FORK "RESTORE" INSTKULTS THE PROGRAM Tu RETURN TO THE START flF 
THE NUMERIC DATA LIST ANU TO RETURN TO ThE START Of THE STRING DATA 
LIST FOR THE NEXT CONSTANTS TO BE ASSlGNtD IN A READ STATEMENT. 
"RESTORE *» INS1RUCTS THE PROGRAM TO RETURN TU 1*E START OF THE 
NUMERIC DATA LIST ONLY. THE FORM "RESTORE J" INSTRUCTS THE PROGRAM 
TU KETURN TO THE START OF THE STRING DATA LIST ONLY. 

EXAMPLEl 

10 UATA STR1NG1. 13, 76. STRTNG2 

20 READ A»B 

JO PRINT "Al 30 A AND B=" A R 

40 READ x* 

5u print "at so x$«" xs 

60 HESTLRE * 

70 READ Y* 

tiO PRINT "AT HO YS*" Y$ 

S*0 RESTORE * 

100 READ C 

110 PRINT "AT 110 C*" C 

120 RESTGHL 

130 READ AS. Bt» X. Y 

140 PRINT X. Y, AS* B$ 

1 bO END 
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a-w mm m m m m m m mm m-m m-m m-m m m mm m mmm m »■»•»■»»• •■• * • • m m • • * • m 

whLN CUMPILFU AND EXECUTED. THIS PROGRAM WILL PRODUCE THE FOLLOWING 
UUTPUTl 

AT 30 A AND ti* 13 7b 

AT bO XJ* STNlNGl 

AT 80 YSn STHING1 

AT 110 C* 13 

13 7fi STRING! STR1NG2 



U017/" BASIC - STRING VARIABLF NAMES - ll^CWZ 

bAalC NOW ACCEPTS STRING VARIABLE NAMES CONSISTING OF A LETTER, 
FULLUwED BY A SINGLE DIGIT* FbLLOwEO BY A DOLLAR SIGN. FOR 
tXAMPLE, "A9S" lb NUW A VALID STRING VARIABLE NAME IN bASIC 

MUTE I THIS APPLIES UNLY TO STRING VARIABLES AND NOT TO STRING ARRAY 
NAMES. STRING ARRAY NAMES MAY (INLY BE IN THE FORM "AS". 
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STRING FlJNCIIONS - 11-05-72 



BAilC PROGRAMS MAY NOW CONTAIN USER DEFINED STRING FUNCTIONS. THE 
USLH MUST DEFINE MIS STRING FUNCTIUNS USING ThE "DEF " STATEMENT* 

FOHMATi 



1. N DEF FNAS = E 

2. N UEF FNAS(U) » E 

WHERE N IS THE LINE NUMRER OF THE DEF STATEMENT* A IS AN 
ALPHAHtTIC CHARACTER INSERTED bY THE USER* E IS AN EXPRESSION 
WHICH. WHEN EVALUATED. YIELDS A STRING. AND D IS A LIST OF ONE 
OR MORE DUMMY VAHlAbLES StPARATED bY COMMAS. 

M UUMMY VARIABLE CAN BF A STRING VARIABLE. OR AN ARITHMETIC VARIABLE 
ANU IS USED ONLY AS A PLACt HliLDLR FOR THE VARUBLt WHICH WILL BE 
UbtU WHEN THt. FUNCTION lb CALLED. 

THL UbER OLFlNED STRING FUNCTION MAY BE USED IN A bASIC PROGRAM 
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WHfcRtVER A STRING VARIABLE CAN BE USEDi 

EXAMPLES 

IOO DEF FN CS(XS.YS.S) ■ X$ ♦ SPACE(S) t YS 

200 LET AS » "A VERY* 

300 LET BS ■ ••GOOD BEGINNING* 

400 LET ft - FNCS(AS»BS»10> 

500 END 

AFTER THE EXECUTION OF LINE 400. F$ WILL CONTAIN THL 
STRUNG "A VERY GOOD BEGINNING". 



U0182 BASIC - MULTIPLE STMT "DEF" FUNCTIONS - 11-05-72 

THt "DEF" STATEMENT HAS BEEN EXPANDED SO THAT THE BASIC PROGRAMMER 
MAY NO* WRITE MULTIPLE STATEMENT FUNCTIONS FOR THOSE FUNCTIONS 
WHICH CANNOT BE EXPRESSED IN A SINGLE LINE "DEF" STATEMENT. THE 
FIH5T STATEMENT OF A MULTIPLE LINE FuNCTlUN IS OF THL FORM! 

1* H DEF FNL 

2. N DEF FNL (D) 

WHERE "N" IS THE LINE NUMBER OF THE "DEF" STATEMENT. "L" IS AN 
ALPHABETIC CHARACTER INSERTED BY THE USER. AND "U" IS A LIST OF 
ONE OR MORE DUMMY VARIABLES SEPARATED BY COMMAS. 

IF THE FUNCTION RETURNS A STRING AS A VALUE FOR THE FUNCTION. THEN 
THL "DEF" STATEMENT MUST BE IN ONE OF THL FOLLOWING FOKMSl 

1. N DEF FNLS 

2« N DEF FNLS (D) 

THL FIRST STATEMENT OF THE FUNCTION IS FOLLOWED BY THOSE STATEMENTS 
WHICH DEFINE THE FUNCTION. THE LAST STATEMENT OF THt FUNCTION MUST 
ttE OF THE FORM I 

N FNLNO 

WHERE "N" IS THE LINE NUMbER OF THE "FNEND" STATEMENT. 
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00182 BASIC • MULTIPLE STMT "DEF" FUNCTIONS - il-05« 

THII STATEMENT INDICATES THE END OF THE MULTIPLE STATEMENT FUNCTION. 

"DEF" STATEMENTS MAY NOT BE NESTED. FURTHERMORE* FUNCTIONS DEFINED 
BY "DEF" STATEMENTS CAN BE EXECUTED ONLY BY INVOKING THE FUNCTION 
WITH A FUNCTION CALL* SPECIFICALLY* TRANSFER OF PROGRAM CONTROL 
INTO THE RANGE OF A FUNCTION SUBPROGRAM BY ANY STATEMENT OTHER THAN 
A FUNCTION CALL IS NOT PERMITTED* ALSO* TRANSFER OF PROGRAM 
CONTROL FROM THE RANGE OF A FUNCTION SUBPROGRAM IS NOT PERMITTED 
EXCEPT BY NORMAL RETURN FROM THE SUBPROGRAM (I* E«* THE EXECUTION 
OF A "FNEND" STATEMENT). 

THIS "DEF" STATEMENT EXPANSION ALSO PROVIDES THE BASIC PROGRAMMER 
WITH THE ABILITY TO SPECIFY VARIABLES TO BE USED AS "LOCAL" 
VARIABLES IN THE FUNCTION. TO SPECIFY A VARIABLE AS BEING "LOCAL"* 
LIST THE VARIABLE NAME IN THE "DEF" STATEMENT FOLLOWING THE 
FUNCTION NAME AND ARGUMENT LIST. 

EXAMPLE! 

10 FUR I « TO 5 

20 X * FNF (I) 

30 PRINT 1 "FACTORIAL*" X 

40 NEXT I 

SO DEF FNF (N) I* X 

60 IF N <> THEN VO 

70 FNF c 1 

80 GOTO mo 

90 X * 1 

100 FOR I * 1 TO N 

110 X ■ X * I 

120 NEXT I 

130 FNF * x 

140 FNENU 

ISO END 

THE EXAMPLE WILL PRODUCE THE OUTPUTl 

FACTORIAL ■ 1 

1 FACTORIAL * 1 
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2 FACTORIAL ■ 2 

3 FACTORIAL * 6 
* FACTORIAL • 2<» 
5 FACTORIAL « 120 

LINE 50 DEFINES THE FUNCTION "F» TO HAVE ONE ARGUMENT "N" AND TWO 
LOCAL VARIABLES "I" AND "X". BY DEFINING "1" AND "X" TO BE LOCAL* 
THE USE OF THESE VARIABLES IN THE FUNCTION WILL HAVE NO EFFECT ON 
THE GLOBAL VARIABLES "I" AND "X" USED IN LINES 10 THROUGH MO* 
LINES 7Q AND 130 ASSIGN VALUES TO THE FUNCTIUN "F". FOR A MULTIPLE 
LINE FUNCTION WHICH IS DEFINED AS A STRING FUNCTION (E. G«* "100 
UEF FNAs (BS» X) C«"), THE FUNCTION VALUE ASSIGNMENT MUST SPECIFY 
THE FUNCTION NAME FOLLOWED BY "$" <E. G«» 200 FNA$ • "THIS IS THE 
FUNCTION VALUE"). 



U01V3 BASIC - DOLLAR OPTION "OLD BASIC" - 12-18-72 

"•••■ ■*•«» * ».«.*> aa>a>«a> a ,.■■ a . a .a. m • «»*>■■•••• 

THE DOLLAR CARD OPTION "OLDBASIC" (RESET BY DEFAULT) HAS BEEN 
PROVIDED SO THAT WHEN METHODS OF HANDLING CERTAIN BASIC CONSTRUCTS 
ARE CHANGED IN B6700 BASIC THE USER MAY* IF HE WISHES* AVOID THESE 
CHANGES BY SETTING THE OPTION OLDBASIC* WHEN 0L0BAS1C IS SET 
PRU6RAMS nILL COMPILE AND EXECUTE AS IF THE CHANGE HAO NEVER BEEN 
MADE* CURRENTLY THE CHANGES DETAILED BELOW HAVE BEEN MADE* 
HOWEVER* IN THE FUTURE OTHEK FFATURES MAY BE IMPLEMENTED FOR WHICH 
LEAVING THE OLD METHOD IN THE COMPILER MAY BE DESIRABLE. IN THESE 
CASES SETTING THE UPTION OLDBASIC WILL CAUSE THE CONSTRUCT IN 
QUESTION TO BE HANDLED AS PREVIOUSLY. 

1* THE HANDLING OF THE INPUT STATEMENT HAS BEEN CHANGED SO 
THAT NOW THE ONLY DELIMITER IN THE INPUT DATA LIST IS A 
COMMA. (BY SETTING OLDBASIC THE OLD METHOO OF BOTH 

BLANKS AND COMMAS AS DELIMITERS WILL BE USED). THIS 
CHANGE ALLOWS BOTH NUMERIC AND UNQUOTED STRING DATA TO 
CONTAIN EMBEDDED BLANKS* WHEREAS THE OLD METHOD WILL 
INTERPRET THE BLANKS AS DELIMITERS* 
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EXAMPLE I 

100 INPUT A. SI 

200 END 

WHERE THE INPUT DATA LIST ISi 
12 345. STRING VALUE. 12 

THE ABOVE EXAMPLE WITH OLOBASIC SET WOULO CAUSE THE 
VARIABLE* A» TO BE ASSIGNED THE VALUE 12 AND SS TO BE 
ASSIGNED THE VALUE "345". 

WITH OLDBASIC RESET "A" WOULD BE ASSIGNED THE VALUE 12345 
AND "SS" WOULD BE ASSIGNED THE VALUE "STRING VALUE". 

2. THE HANDLING OF "MAT INPUT" STATEMENTS HAS BEEN CHANGED 
SO THAT NOW WHEN A "MAT INPUT" STATEMENT IS EXECUTED IT 
DOES N8T KEEP READING DATA ELEMENTS UNTIL THE ARRAY IS 
COMPLETELY FULL. INSTEAD IT WILL FILL THE ARRAY. IN ROW 
ORDER. UNTIL IT FINDS THE END OF THE DATA LIST. THE DATA 
LIST CONSISTS OF ONE LINE OF INPUT FROM AN EXTERNAL FILE 
OR REMOTE DEVICE. OR ONE CARD OF INPUT FROM BATCH MODE 
(SEE #3 BELOW). 

EXAMPLEI 

100 MAT INPUT AC3#3) 
200 MAT PRINT A 
300 END 

WHEN LINE 100 IS EXECUTED THE PROGRAM WILL WAIT FOR THE 
DATA ELEMENTS FOR MATRIX "A". IF THE INPUT LIST ISI 

1.2.3.4 
THEN LINE 200 WILL PRODUCE THE OUTPUT" 

1 2 3 

4 


WHEN USING "MAT INPUT" WITH ONE DIMENSIONAL ARRAYS (I.E. 
VECTORS). IF THE NUMBFR OF OATA ELEMENTS INPUT IS LESS 



U U 1 9 3 

m « a m m 



bASIC 



DOLLAR UPTTUN "OLD bASIC" - I2 m lb»7? 
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THAN THfc" SIZE OF THE VECTOR* THEN THE VECTOR WILL BE 
RESIZED TU UE EQUAL IN SIZE TU ThE NUMbEH QF ELEMENTS 
INPUT (SEE RELATED SYiTF.M NUTE D0197). 

EXAMPLE: 

IUO MAI INPUT AUS) 
?UO MAT PRlNl A 
JOC END 

WHEN LINE 100 IS EXECUTED THE PhUGRAM WILL WAIT TOR THE 
OATA FOR MATRIX "A". IF THE lNPUl IS» 

1 *i>.3»4.b»6 

THEN "A" WILL HE RESIZED T U CONTAIN UNLY THESE SIX 
ELEMENTS. ANY ATTEMPT TU INDEX MATRIX "A" WITH AN INUEX 
VALUE UNEATEN THAN SIX WILL PHUUUCE AN "INVALID INUEX" 
ERROR. LINE ?00 WILL PROUUCE THE UUTPUTl 



? 



THUS* A VECTOR CAN bE RESIZED TU AN SIZE* "N"* WITH THF 
STA1FMENT I 

100 MAT INPUT A(N) 

AND THEN SUPPLYING "N" UATA ELEMENTS WHEN TnE STATEMENT 
IS EXECUTED. 

HY SETTING ULUbMilC "MAT INPUT" STATEMENTS WILL CONTINUE 
TO EXPEC1 DATA UNllL THF ARRAY IS COMPLETELY E ULL . THUS 
PREVENTING PARTIAL FILLING OF TWU DIMENSIONAL ARRAYS AND 
ALSO IhE HES1Z1NC THAT MAY OCCUR w i I M VECTURb. 

THE AMPERSAND CHAPACTPR (I.E. "&'*) LAN NOW bE OSED AS A 
CONTINUATION CH AH AC T Eh" f flp DATA HFlNU SUPPLIE.U T (] A "MAT 
INPUT" STATEMENT (SEE SYSTEM NOTE UOlVb FUR AN F XAMPl t 
AND NULLS AHUUT THE USE OF THF AMPERSAND). *HEN IT IS 
NUT POSSlbLL TU PUT ALL THE DATA UN ONE LINE OF INPUT 
(FROM REMOTE DEVICES) (IK UNE CAKL (FROM bATCH MODE) THE 



UU193 BASIC - DOLLAR UPTTON "OLD BASIC" - 12M6-72 
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USE UF THE AMPERSAND AS THt LAST DATA ELEMENT WRL CAUSE 
THt PMOGHAM TCI CONTINUE LOOKING FUR DATA, 

BY SETTING OLDHAS1C IHE USE UP IHL AMPERSAND AS A 
CONTINUATION CHARACTER IS NULLIFIED. HOWEVER* IT IS 
UNNLCtSSARY SINCE SET I ING ULObASIC WILL CAUSE "MAT INPUT" 
STATEMENTS TO CuNTlNUE READING DATA UNTIL IHE ARRAY IS 
COMPLETELY FILLED. 



UOi*4 bASIC - UET FUNCTION IN BASIC - 12-16-72 

THE FUNCTION "UET". WHICH RETURNS THE VALUE UF THE DETERMINANT OF 
THL MATKlX WHICH WAS LAST INVFRTED VIA IHE "INV" FUNCTION* IS NOW 
IMPLEMENTED IN B6?00 BASIC. DtT HAS NU ARGUMENTS AND MAY BE USED 
IN AN ARITHMETIC EXPRESSION OR BE REFERRED TU DIRECTLY BY A PRINT 
STATEMENT. 



-2i2- BASIC - COTANGENT FUNCTION IN BASIC - 12-10-72 

THE CUTANGEimT TR I GONOMETK I C FlJNCTIUN IS NOW IMPLEMENTED IN BASIC* 
IT IS REFERENCED AS "CUT(X)". WHFRfc X IS THE ANGLt. EXPRFSSED IN 
KAUIANS* WHOSE COTANGENT IS Tn BE FOUND. IT MAY HE USED ANYWHERE 
IN A BASIC PKUGRAM I HAT A BASIC MATHEMATICAL ^UNCTION CAN BE 
REFERENCED. 



U0197 



BASIC - NUM FUNCTION - 01-15-/3 



ihl num Function ib now implemented in b6?oo basic, this function 
he turns the number of data flements entekeu into the last arhay 
which was filled by a mat input statemeni. 

if THE ARRmY HAS ONLY ONE DIMENSION (I.E.* IT IS A VECTOR) AND THE 
NUMHEH (jF UATA ELEMENTS INPUT TO THAT VECTOK VIA THE MAT INPUT 
STATEMENT IS LESS THAN THE SIZE UE THE VECTUH* THEN THE VECTOR WILL 



019/ 



BASIC 



NUM FUNCTION - 01-15-73 
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bt KESIZEU TU BE AS LARGE AS THF NUMBER Oh UATA ELEMENTS WHILH WERE 
INMul. IN THIS CASfc NUM WILL CONTAIN I h£ NUMbEH t)F bAlA ELEMENTS 
lNPul» WHICH ALSO wlLL bt THE NFW SIZE CJ I- Tht VECTOR. 

t X A M P L E I 



10 DIM A ( 1 5 ) 

2UU CAT IwPDl A 

J CO PRINT "NUM «»• NUM 

400 A(/) = 10 

500 ENO 

WHEN THE AbUVE PROGRAM IS FXECUTEU TME SlAfEMfNT IN LINE ?00 WlLL 
wAll UNTIE THE DATA ELEMENTS i OH THE AHHAY A HAVE Bt FN SUPPLIED. 
IE THE UAlA IS THF VALUFS 1» 2, 3» 4 AND 5 » THEN A(l) THRUOGH A(5) 
wlLL &£ ASSIGNED THE VALUES ONE 1 HROUGH FlVt ANU A WILL BE RESIZED 
TO BE ONLY E1VE ELEMENTS LONG. LlNt 300 WILL THEN PRODUCE THE 
UUfPU T« 

N M a 5 

AFTER THAT LINE 400 wlLL GET AN INVALID INDEX ERROR BECAUSE A IS 
UNLY FIVE LONG AND LINE 400 ATTEMPTED TU INDEX THE SEVENTH ELEMENT 
UK A. (NCm.l THE PROGRAMMER CAN RESIZE VECTUH A BACK TO 15 
ELEMENTS LATER IN THE PROGRAM BY USING THE S1ATFMENT» 

350 MAT INPUT A(15) 

AND THEN WHEN LINE 350 IS EXECUTED SUPPLYING 15 DATA ELFMFNTS.) 

FUh TWO DIMENSIONAL ARRAYS ElLLFD bY A MAI INPUT STATEMENT NUM WlLL 
CUNTAIN ThE NUMBER UF UATA ELEMENTS INPUT TU I HE ARRAY. THE ARRAY 
WILL NOT BE RESIZED IF I HE NUMBER OF DATA ELEMENTS INPUT IS LESS 
IHMN THE SIZE OF THE ARKAY. 

FUR BOTH TWU IJIMENSIUNAL AND ONE DIMENS1UNAL ARRAYS* IF THF NUMBER 
UF DATA ELEMENTS IS MURE THAN IHt SIZE OF 1 HE ARRAY, THEN THE MAT 
INPul STATEMENT WILL IGNORE THF EXCESS DATA AND NUM KILL BE EQUAL 
TO TML SIZE OF THE AKRAY. 

bY SETTING THE UPTION "ULDBASIC" (SEE SYSTEM NUTE D01V3) MAT INPUT 



D0197 



BASIC 

* at *» «* -» 



- NUM FUNCTION - 01-15-73 
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STATEMENTS WILL* AS I in ThE PAST* CAUSE THE ENTIRE ARRAY TO BE 
FILLED AND THUS AVOlU THE KESIZlNG OK VFCTORS. 



UOdQi 



BASIC - "AbC" CHARACTER FUNCTION - 01-15-73 



THt "ASC" FUNCTION lb NOW IMPLEMENTED IN U6700 BASIC. THE VALOE 
HEruHNtU BY THIS FUNCTIUN IS THt NUMtRIC VALUE U* THE SPECIFIED 
EBCuIC CHaKACTEk. IF THE CHARACTER CANNOT BE PRINTED AN 
ABBREVIATION FOR THE CHARACTFR MAY bf. UbEO. THE ABBREVIATIONS 
WHICH ThE FUNCTION KILL ACCEPT ARE NUL* bUH* SIX* ElX, HT* DEL* VT# 
fF# CR. SO* SI* OLE* UC1, DC2, DC3, UC*, Bb, CAN, tM, FS. 6S, RS» 
US, Lf » ETB, ESC* ENO* ACK* dEL. SYN* EON NAK* SUB ANU SP« 

LXAMHLEt 

100 PRINT rt l «", ASCC1) 

200 PRINT "A »"» ASC(A) 

300 PRINT "LINE F"EED«"» ASC(LF) 

*400 PRINT "NUL ■ "» ASC(NUL) 

500 ENO 

WHEN EXECUTED THE ABOVE PROURAM WILL PROUUCE THE FOLLOWING OUTPUT* 

I * 2*1 

A « 193 

LINE FEED * 3/ 

NUL a 



UU404 



BASIC - APOSTROPHE - AS COMMENT SIGN - 01-15-73 



THE APOSTROPHE CHARACTER CAN NOW BE OSED IN BASIC PROGRAM 
STATEMENTS TO INDICATE THAT THE REMAINUER UF A LINE IS A COMMENT. 
ANYTHING IN A BASK STATEMENT FQLLOhlNG AN APOSTROPHE WILL BE 
TREATED AS EXPLANATORY REMARKS. 



U0405 



BASIC 



LXHANUED "IF" SYNTAX - 01-15*73 



00205 HAbIC - LXPANUEO " IF " SYNTAX - Ol-l5"73 



PAUL 37 



THt "IF" STATEMENT IN BASIC HAS BEEN EXPANUEU TU ALLUW STATEMENTS 
UF THE FOHMt 

IF <BOOLEAN EXPPESSIGN> U LI Tn <LlNE NUMBEH> 

EXAMPLE! 

650 IE A<« 00 TO 1100 



00206 BASIC - LIMIT DOLLAH CARD OPTION - 01-15-73 

THE DOLLAR CAHU UPTIUN "LIMIT" IS NOW IMPLEMENTED IN BASIC THE 
PHUPER FORMAT ISt 

LIMIT <INT£(iEN> 

THE BASIC COMPILER WILL TERMINATE COMPILATION UF A PkQGRAM IF THE 
NUMfcjER CE SYNTAX ERRORS IN THE PROGRAM EUOALb OR EXCEEDS <INTEGER>. 
if THE LIMIT OPTION IS NUT SPFCIFlEU ThE DEFAULT VALUE IS 100 (10 
IF CALLEO FROM CANDE). 



OQtti? BASIC - RELATIUNAL UPIPATOHS - 01-15-73 

BASIC NOW ALLOWS RELATIONAL OPERATORS OF 1 HE FORM - .EQ.. OTHER 
ACCEPTABLE OPERATOR* ARE .LT.» .tiT.# «L£.» ANU .NL.. 

LXMMPILL 

100 IF A .NE. B THEN 200 



UQ<!Oti BASIC - INHUT-0UTPU1 STATEMENTS - Ul-22-73 



d6?00 BASIC HAS HEEN EXTENDED SO ThAT lNPOT LISTS* OF "READ" ANO 
"INPUT" STATEMENTS* ANO OUTPUT Ll5TS# UF "PRINT" STATEMENTS. MAY 
NOw SPECIFY 4H ITEMS. THE PREVTUUS LIMII WAS 16. 



U020SI 



HAS i C 



"INPUT" STATEMtNT IN bASiC 



01-06-73 



PAGE 38 



U02UV 



BASIC - "INPUT" STATEMENT IN BASIC - 01-0fl-73 



IHL "B6700 HaSIC LANGUAGE MANUAL" IS IN tNHOR In ITS DESCRIPTION OF 
THL INPUT STATEMENT. THt MANUAL STATES* "EACH TIME AN INPUT 
STATEMENT IS EXECUTfcU* THE NEXT DATA ITEMS IN lHE FlLf ARE READ." 
THE MANUAL SHOULD HEAD "EACH TIME AN INPUT SlATEMtNT IS EXECUTED* 
IHtN STARTING mITm THE NEXT LINE UK DATA* DATA ITtMS IN THE FILE 
ARE HEAD." 

EXAMPLE! 

100 FDH I a 1 TO 3 

200 INPUT FILE NUMBEHS* A(J).HCI) 

300 NEXT i 

400 END 

WHERE FILE "NUMBERS" CONTAINS THE FOLLOWING THHEE LINFS OF 
DATA t 

1* 2* L H 

b# 6* /, H» 9* 10 

11* 12* 13 

THE MANUAL InCURKECTLY IMPLIES THAT THIS PROGRAM WILL ASSIGN VALUES 
1U THE MAlHlCES A AND b SO TMATt 



All) a 1 
A12) « 3 
AUJ > 5 



b(l) ■ 2 
b(2) * 4 
ti I 3 ) « 6 



HUWEVER* THF CUHREC1 RESULTS ARF 



A(l) a 1 
AC2) a 5 
A(3) = 11 



b(l ) = 2 
h(2> a 6 
b(3) = 12 



U0221 



BASIC 



"PK1NT" SFATFMFNT IMPKOVEMENTS - Ul-29-73 



IHE FULLUwING ThU ChAimGlS HAVE HEEN MADE TO lHE BASIC PRINT 



DU221 



Basic 



"PRINT" STATEMENT I MPRU VE MEN I S 



- 01- ? W? AGt 



STATEMENT! 



1. EACH PKlNl STATEMENT WHICH PRINTS I £J A ULL WILL NOW 
HtGlN WRITING ITS DATA ON A NEW LINE ANU CONlNTUE OVEK AS 
MANY LINES AS NEEUEU CAS DQCUMENTtU IN THE "B6700 BASK 
LANGUAGE" MANUAL PP <t-13). 
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2. IF THE LAST PKINT STATEMENT (NUT TU A ULE ) IN A BASIC 
PHOttRAM IS TERMINATED WITH A COMMA OK A SEMICOLON THAT 
OUTPUT LIST WILL NUw HE PhINTED WHEN THL PROGRAM IS 
TEHMlNATFU. 



NEW FEATURES AND DUCUMENT A T I UN CHANGES 
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blNlUR 



U015t> BINDER - ALGOL 10 ESPUL BINDING - 01*15-73 



iT lb NOW PUSSIHLF TO blND ALGOL ANu DCALGUL PRUCEDURES TO 1HE MCP 
SUBJECT TU THE FOLLOWING RESTRICTIONS: 

1. THE PROCEDURE MUST bE LEVEL TWO OH HlGHtR. 

2. IF THE PROCEDURE IS LEVEL TWO ANU RISERS TO MCP GLOBALS* 
SINTR1NSICS MUST BE. SET DURING COMPILATION. 

J. THE KHUCEUUKE MAY hFFFR ONLY 10 DtCLAREU ITtMS WITHIN 
ITSELF OR IN THE UUTER BLOCK OF THE MCP» 

OTHERWISE NORMAL BINDING PROCEDURES APPL> . 



NEW FEATURES AND DOCUMENTATION CHANGES 
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CANOE 



U0186 CANDE - EXCLUDE COMMAND - 11-20-72 

A NEW CANOE EDITING CUMMANO, EXCLUDE* HAS BEEN IMPLEMENTED. THE 
SYNTAX PARALLELS THAI FOR MERGF AND REMERGE-THE KEYWORO "FXCLUOE" 
IMInIMUM ABBREVIATION "EXC") FOLLOWED dY A FILE NAME ANO OPTIONAL 
SEUUENCE RANGE LIST. ANY LINE IN THE WURKElLt WITH THE SAME 
SEyuENCE NUMBER AS A LINE TN THE EXCLUDE FlLt IS DELETED. 
(UNMATCHED LINES IN THE EXCLUDE FILE ARE IGNORED.) EXCLUDE MAY BE 
UTILIZED ALONG WITH FIND-TO-FILF TO DELElE SELECTED LINES IN A FILE. 



00236 CANDE - INCREASE MAXSTATIUNS. MaxTASKS - 01-15-73 

THL MAXIMUM NUMBER OF STATIONS ( MAXST Al IONS ) THAT MaY BE ATTACHED 
IU CANDE HAS BEEN INCREASED FRUM 25 TO 35* AND THE MAXIMUM NUMBER 
UE TASKS WHICH MAY BE ACTIVE AT ONE TIME (MAXTASKS) HAS BEEN 
INCREASED FROM FIVE TO TEN, IN SYMbOL/CANDE AND SYSTEM/CANDE AS 
UlSTRIBL'TED. THE MAXIMUM NUMBFR UE SIMULTANEUUS EDITING FUNCTIONS 
UR LISTINGS (MAXWURKS) REMAINS SIX. ALL 1HESE PARAMETERS MAY HE 
VARIED TO SUIT THE LOCAL 1NS1 ALl AT ION. BY RECOMPILING CANDE. 



00237 CANDE - PAGESMP VARIANT - 01-15-73 

CANDt NOW SETS THE PAGESMP VARIANT HAlHtR THAN TOGGlfcU] TO 
INDICATE NEW-PAGE ACTION IN UCWRITE WRITE MESSAGES. THIS FEATURE 
IS USED IN SENDING FULL-PAGE QUTPUT TO SCREEN DEVICES. 



00236 CANDE - HISTRY PRUCSNG FOR RSVP & SNTX - 02-U5-73 



U023B CANDE 



- HISTRY PKOCSNG FOR RSVH & SNTX - U2-05-7? AGE 
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CAnuE WILL NO* DISPLAY RSVP MESSAGES (NO FILE. ACCEPT. ETC*) AT 
IHE USER STaTIUN WHEN Mlb TASK IS WAITING (STEU) FOR OPERATOR 
ATI6MIUN. NO EXPLICIT HEPLY MFCHAN1SM MAS bEtN PROVIDED* ALTHOUGH 
THE USER MAY ENTER "?US" Tn TERMINATE THE TASK. TASK. HISTORY 
PKUCESSINU HAS BEEN FURTHER MODIFIED TO ACCOUNT F OR A NEW VALUE 
INDICATING THAT A COMPILATION TERMINATED WITH SYNTAX ERRORSl 
VISIBLE OUTPUT IS NOT EFFECTED. 



00*39 



CANIJE 



LOGGING; SESSION NUMBHSI SPLIT - 02-05-73 



CANDE LOGGING MAS BEEN MODIFIED IN KEEPING WITH THE NEW WORK-FLOW- 
MANAGEMtNT LUGGING SlHUCTUHE. THE SYSTEMLOG INTRINSIC IS NO LONGER 
USED! MCSLOGGER AND UCEKHORLOGGF R PERFURM SIMILAR FUNCTIONS. 

EACH CANDE SESSION 1 i> ASSIGNED A NUMfaER C CURRESPUNDING TO JOB 
NUMbER FUH BATCH JOBS). A JUBFILE tXlSTS FOR TMf. SESSION* ALL 
TASKS HUN IN THAT SESSlUN ARF LUGGED IN THAT JOBFILE. PRINTER AND 
PUNCH CuTPUT FROM THESE TASKS ARE GATHLRED WITH THE JOBFILE. AND 
PRUCESSEU TUGETHEK AT THE END OF THE SESSION. THE SESSION NUMBER 
bECDMES THE Jflti NUMBER FUR EACH TASK IN THE SESSION. THE SESSION 
NUMhER IS DISPLAYED AT LUGUN AND LOGOFF. 

a NEW COMMAND. SPLIT (MINIMUM ABBREVIATION "SPL")» HAS BEEN ADDED 
10 ALLOw PROCESSING OF THF ACCUMULATED UUTPUT WITHOUT THE USER 
LOGGING OFF. SPLIT DIVIDES THE SESSION* TMfc CURHENT SESSION IS 
FUKMALLY LOGGED OFF (CAUSING PROCESSING OF THE JtB FILE)* A NEW 
SESSiL'N NUNBEH IS ASSIGNED AND NEW F'uRMAL SESSION BEUUIm. NO CHANGE 
.5 MADE IN WUHKFILE. USERCUUE OR CHARGECUUE STATUS, 

THE TIMES PRIN1E0 AT HELLO. BYE. SPLIT OK CHARGE TIME ARE THE 
ACCUMULATION SINCE THE PHEVIUUS SUCH TIME. 



U0240 



CANDE 



uch fault reporting - 02-is>-73 



CANUE NOW WRITES. ON A SEPARATE HR1NTEK BACKUP FILE. AN ANNOTATED 
LISTING OF THE DCP FAULT MFSSAGGE WHEN A UATACOM PRUCESSOR FAULT 



C0240 



CANDE 



DCP FAULT REPORTING - 02-19-73 
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CUNuiTlGN IS DETECTED. THF LISlJNG SHOWS THE OCR NUMBER* FAULT 

NUMBER* AND CUlvTENTS OF OCP REGISTEHS MNU SCRATCHPAD MEMORY, 
APPHOPHIATFLY LABELED. THE InTNAML AND DEFAULT TITLE Of THE FILE 

IS "d. M 



002/S CANDE - LOG ANALYZEh - 03-07-73 

* m m m m m «• • m m m m n « • w> •» m m m m m m ■*»*■» mm a* m » 

THL CANOE COMMANU "LOG" NOW iNVftKES S YSTEM/LUGANAL YZLR » KATHEN THAN 

SYSTEM/LOGOUT. THE <INPUT SPEC IFK AT IUNS> FOLLOWING "LOG" AHE 

PASSED DIRECTLY TU LOGANALYZFR FOK INTEkPRLT AT ION . LOGANALYZER 

DiVlOtS US PRINTER OUTPUT TO FIT THE TERMINAL WluTH, AS SPECIFIED 
IN NDL<> 



U0276 CANOE - LINE-STATION RFADY - 03-23-73 

trnmrnmrn m m m « «i m t» m m m m m m « m m m m w « w w m m m m m m m m m* m> 

SEVERAL CHANGES HAVE BEEN MADE TU MIMMUE OCCURRANCES OR LINE-NOT- 
HEADY OR STATiON-NOl-REAOY- SITUATIONS! 

1* THE ^READY" CONTROL COMMAND NOW READIES BOTH LINE AND 
STATIUN. 

2. THE ERROR COUNT IN CANDE IS RESEl WHEN S* I TCHFO-LlNE 
STATUS CHANGES. 

3. WHEN CANDE IS STARTED* IT ATTACHES ALL STATIONS FOR WHICH 
CANOF IS THE MCS, MAKING LINE AND STATION READY* AND 
SENDING A MESSAUE TO THOSF THAT ARE CONNLCTED OR 
UNSwITCHED. 

NOIE THAT MAXSTATIONS IN CANOF MUST tit LAHGE ENOUGH FOR ALt CANDE 
STATIONS IN I HE. NETWORK* SlNCF ALL AHE AlTACHED IMMEDIATELY. 



DQ277 CANDE 



BUFFER CHAOS TRAP - 03*23-73 



THt TRAPS IN CANDE TO DETECT ERRORS IN TANK-BUFFER PROTOCOL HAVE 



U0?7? 



CANUE - BOFFER CHAOS TRAP - 03-23-/3 
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dltN MuulFItD* iNbTEAU OF OTVlUlNG "CHAOS" OK "GUTCHA" BY ZERO. 
ThLY PRGUUCE A MtMUKY DUMP (BY "CANUElBU* CHAOS"). THE DOMP IS NOT 
FAI'AL TO THE MCH, dUT CANUE WILL BE TERMlNAlEO FOLLOWING THL DUMP, 
PLEASE FORWARD B f J 1 H MEMORY OUMP AND PROGRAM DUMPS TO TIO. LARGE 
SYbTEMS PLANT, WITH AN FTR. (THESE TRaPS ARE STILL CONTROLLED RY 
IHL CUMHILE-TIME S OPTIONS PARANOID AND HtDANTiC.) 



U02fl2 CANUt 



SWAPPING - 10-30-72 



htnctfukth, hy default. all tasks run hy cande are run in subspace 

if swapper is running, compilers and &ysum utility routines are 

run with subspaces = 1 ( sw apreenth ant ) » so the dl stack is in 

nohmal memory and tme 1)2 stack ts in a subspace. uslr programs are 

run with subspaces « 2 ( swapst andahd ) i ul and d2 stacks (code and 

UAlA) ARE bOTh IN THE SUBSPACE IF THE CODE FILE IS In A USERCODE 
LldhARYj ir THE CODE FILE IS IN SY STEMUIREC T OR Y THEN THE CODE IS 
REENTRANT AND DATA IS SWAPPED. THE EXECUTION PARI OF A COMPILE- 
ANU-GO "RUN" CDMMANU HAS SUB5PACES » 3 (SWAPALL)I CODE AND DATA ARE 
BOTH IN SUBSPACE. 

A NEW SECONDARY CONTROL STATEMENT (MODIFIER) MAY BE USED TO 
UVEHHIUE THE DEFAULT SETTINGS. THE SYNTAX AND SEMANTICS ARE« 

SUbSPACES ■ DO NOT USE SUBSPACE 

SUBSPACES a 1 DATA IN SUBSPACE 

SUBSPACES « 2 DATA IN SUBSPACE. CODE ALSO IF USER PROGRAM 

SUBSPACES « 3 DATA AND CODE IN SUBSPACE 

(THE EOUAL SIGN IS OPTIONAL.) 

tXAMPLESl 

CUMPILE) C SUbSPACES » tCOMPILE WITHOUT SWAPPING] 
E *SYSTEM/UT1LITY| SUBSPACES ■ 1 ISWAP DATA, NOT CODE) 

NUfE THAT SUhSHACE SETTING FnR EXECUTION MAY NOT BE SPECIFIED AT 
COMPILE TIMF (WITH EITHER COMPILF OR RON). 



-2-S- *tm°- " LXTLNU "tJHUTAL" & "PEDANTIC" - t)*4-03-73 P AUE " 5 
-mil* CA *"E - EXTEND "BRUTAL" J, "PEDANTIC" - 04-U3-73 



THIS CHaNGF CAUSES WAITANUGU TO BE CmLLEU LACH TlMt A GFfbLK IS 
DONE IN ORDER TO INSURE GLOBAL VARIABLES) ARt "bHUT AL I Zf D" WHENEVER 
A dLUCK IS GOTTEN ANO THE bkbTAL OPTION IS SET. IT THEN BRUTALIZES 
VAHIABLE5 BY CALLING AN INSTALLATION INTRINSIC THAT WILL SET ALL 
PEkIInIlNT GLObALS TO UNINITIALIZED VAHIAbLLS. THIS CHANGE ALSO 
CAUSES |HE READONLY BIT Tfl BE SET IN THE DIRECT ARRAYS INTO WHICH 
1ANK BUFFERS ARE READ OFRFNOIhG UPON THL VALUE Of Thf READONLY 
PARAMETER IN GETttLK. THIS ACTION IS TAKEN WHEN THE PEDANTIC OPTION 
iS SET* TO INSURE THAT WHEN INFORMATION IS CHANGED, AN UPDATED CUPY 
Uf IhE. dUFFFK WILL BE" REWRITTEN ON DISK. 



NEW FEATURES ANU DOCUMENTATION CHANGES 
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UG224 



COBOL 



CObOL 



DGLLAh CARD PROCESSING - 11-20-72 



I His CHANGE MAKES CHANUtS AND CORRECTIONS TU THE HRUCESSING Of S 
CARD UP T IONS. 

THt OPTION NULINK HAS bEEN DE-I MPLEMtNTEU SInCE THERE ARE NO LONGER 
ANY COMPILATION FUNCTIONS WHICH DEPEND UN ITS SETTING. SPECIFYING 
NOLINK IN A S CARD WILL NOW PRODUCE A WARNING MESSAGE. 

LULLAR CARDS MAY NOW APPEAR IN ANY COMPILER INPUT. ANY INPUT IMAGE 
(WITH OR wITHUUT A SEQUENCE NUMbER) WHICH 15 bLANK IN COLUMN SEVEN 
ANU HAS A $ SYMbUL IN COLUMN EIGHT WILL bE RECOGNIZED AS A VALID 
UOLLAR CONTHOL CARD (SETTING ANU RESEITlNb OPTIONS AS SPECIFIED) 
ANU WILL bE WRITTEN TU OUTPUT "SAVE" UR "NEwTAPE" FILES. PRIOR TO 
IMPLEMENTATION OF THIS CHANGF* DOLLAR CARDS WOULD NOT BE PASSED 
UNIO COMPU.tR OUTPUT AND WOULD NOT bE RLLIAbLY PROCESSED WHEN THEY 
APPEARED IN COMPILER LIbRARY FILES (VIA THE "FROM" OR "COPY"). 
INPwl IMAGFS WITH A $ SYMbOL IN COLUMN SEVEN ARE FUNCTIONALLY 
EQUIVALENT 10 InPUT IMAGES WHICH HAVE FHE $ SYMBOL IN COLUMN EIGHT 
(AND ARE BLANK IN CULUMN SEVEN) EXCEPT THAT THE LATTER WILL BE 
WRITTEN TO OUlPOT "SAVE" AND/UR "NEwTAPE" FILES. AN INPUT IMAGE 
WHICH HAS THE $ SYMbOL IN bOTH CULUMNS SEVEN AND EIGHT WILL 
INITIALIZE ALL UPTIUNS AND SET I HE OPTION "S". SINCE THE $ SYMBOL 
WHICH FLAGGED THIS CARD AS A $ CONTROL CARD IS IN COLUMN SEVEN* IT 
WILL NUT bE WRITTEN TO UUlPUT FILES. A S-COLUMN EloHT IMAGE WHICH 
SPECIFIES VOID* VOIDr# SAVE UR FROM WILL CAUSE A WARNING MESSAGF TO 
PRINT AND NO PART OF THE IMAGE WILL BF WRITTEN TO ANY CUMPILER 
UUfPUT FILE. 

A NEW OPTION* "LlbUOLLAH"* HAS bEE N IMPLEMENTED ON WHOSE SETTING 
fHL RECOGNITION OF S CONTROL CARDS FROM A LIBRARY (WIIH THF "FROM" 
UR "COPY") IS BASED. WHEN THF OPTION IS SET* LIBRARY $ CARDS ARE 
RECOGNIZED AND PRUCESSEU. WHEN THE OPTIUN IS RESET* S CARDS FROM A 



U0224 CObOL - OULLAR CAKU PRUCESSING - 11-2U-7? 
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LIBRARY AHt TREATED AS COMMENTS. IF LlbUOLLAR APPF. ARS ON A S CARD 
bRUOGhT IN FKUH A LIBRARY, I HE UPTIUN lb IGNOREU AND A WARNING 
MESSAGE IS PRINTED. 1H1S UPTIUN IS St I AUT UMm T I C ALL Y bY THK 
COMPILER. CULLAR CAKU INITIALIZATION ALSU CAUafcS II Tu BE SET. IK 
This OPTION HAS NEVEK BEEN EXPLICITLY "RESET" A "POP" WILL LtAVE 
THL UPTIUN SET . 

A FATAL SYNTAX fcHHOH WILL BE PRUDUIEU If A "FROM" OPTION APPEARS 
witHlN THE IMAGES BROUGHT IN AS Tht RESULT OF A »$ FROM" UR A 
♦'COPY". 

A PROBLEM WHICH WOULD CAUSt INPUT IMAGES TU BE MISSING FROM THE 
PASS TWO LISTING HAS BEEN CORRECTED. 

A PnUBLEM WHICH CAUSED PASS I WO TO TERMINATE WITH AN "EOF NO LAbEL" 
IS CORRECTED. 

AN ERRUNEUUS WARNING MESSAGE WHICH PHlNTLD ONLY WHEN THE LAST IMAGE 
FRUM A LIBRARY WAS A t CARD HAS BFEN REMUVEU. 

THE LETTER "S" NUW PRINTS ON THE RIGHT SIDE OF THE LISTING FOR 
IMAGES WHICH COME FROM SAVED INPUT AS A HESULT OF A M S FHOM". 



00226 COBOL - NEW ATTRIBUTES - 02-O5-7J 

— — •* — - •>••«- • ■ a •> m •> m m m m m m m m m m *•««•»» m 

THIS CHANGE AUUS SEVEN NEW ATTRIBUTES TU THE Ll^T OF ALLOWAHl.t 
ATTRIBUTES. THF FILE ATTHIbUTFS ADDED ARE FLEXIBLE* C URRENTBLOCK , 
CARRIAGECUNTHOL. AND TlMFLlMlT. THE TASK AlTNIbUTEi) ARE MAXCARDS, 
MAXLINES, AND JOHNUMbtR, FDR DETAILS uF THE USE OF THESE 
ATTRlbUTES REFER TO THE MCP UR INPUT-UUTPUT SUBSYSTEM MANUALS. 



mm'i'il COBOL - <[)ATA-NAME> IS <MNEMQNIC> - 02-19-73 



THE CONSTRUCT 

SPECIAL-NAMES. 



<DATA-NAME> IS <MNEM0NIC>, 



00229 COBOL - <UATA-NAML> IS <MNEMQNlC> 



02-19-73 
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wlLL RESULT IN SYNTAX ERmGK #0. PAGE 3-6 OF THE COBOL MANUAL IS IN 
LHHQH IN SHOWING THIS AS VALID SYNlAX. DOCUMENTATION WILL BE 
NEvlbEU. 



uatur 



COBOL - "CALL SYSTEM" VERB 



02-19-73 



This CHANGE REMOVES THE HLSTRKTION THAT 1 HE UA1A-NAME IN THE CALL 
SY^IEM VERB MUM BE A RECORD WHOSE USAGE IS DISPLAY. DISPLAY-1 
HECOHD AREAS ARE NOW ACCEPTABLE. 



U0249 COBOL - SHURT BLOCK USr ROUTINE - 01-15*73 



A USL PROCEDURE UEF1NEU AS 

"USE AFTER RECORD SUE ERROR ON <FILE-NAMt>" 

WILL BE EXFCUTED FOR EACH RECORD OF A BLUCK WHICH IS LESS THAN THE 
iPtCXFIEL BLGCK SUE. A EAlAL SYNTAX ERROR WILL PRINT IF THIS USE 
PROCEDURE IS SPECIFIED FUR A FILE WITH VARIABLE LENGTH RECORDS OR 
BLOCKS OR FOR A FILE ASSIGNED TO A DEVICE OTHER THAN TAPE. 
UGCUHENTATION IS ALSU ADDED TO THE COMPILER. 



NEW FEATURES AND DOCUMENT AT IUM CHANGES 
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DATACOM 



UQ171 MCP-UAYACM - DCSYSTEMYABLES INTRINSIC - 02-19-73 

«•«••«• m a m m m a a awa ■ s ■ •■ k * • a • a a ■ a ta a aaaaaaaaa a aaaaaaaa 

Thk. UtSYSTEMTAbLES INTRINSIC ENAbLES AN ALGOL UR OCALGOL PROGRAM TO 
ObTAlN INFORMATION ABOUT THE CURRENT OATACOM ENVIRONMENT. IT IS 
RRUvIUED FOR USE bY THE SYSTEM/DCSTATUS PHUGRAM> AND IS THkREFORF 
SUBJECT TU FUTURE MUD IF IC AT IUN . 

UCSYSTEMTABLES IS A REAL-VALUFD INTRINSIC. THE CALLING SYNTAX 1S» 

DCSYSTEHTABLFS(<UHTIUN>,<RUW>) 

<QPTIDN> t }»<ARITHMET1C EXPHFSSIUN> 
<RUw> Ij*<aRHAY RCW> 

EXMMPLEl 

T »* UCSYSTEMTABLES 13. All* *])* 

SEMANTICS* 



1. THE INFORMATION SELECTED bY <0HTIUN> IS C0P1EU INTO <HOW>. 

I* <ROw> IS ALWAYS RESIDED To CONTAIN THE REOUFSTED 
INFURMATION. ANU THE PRFVIOUS CONTENTS OF <RUW> IS LUST. 

3. <OPTIUN> SELECTS THE INFORMATION MS FOLLOWSt 

« UCC TABLES 

1 « DCP TABLES 

2 * DCC STATION TABLF 

3 » GENEKAL INFORMATION* 

A. <RUrf> [03 » BIT MAS OF INITIALIZED DCP-S (I. 
E.» IF <HOW> 10J.13UJ ■ 1 THEN D»»P #3 HAb 

BEEN 1MT1ALIZFD). 

b. <RUW>tl] TlJ <R0W>13J s UC FILE RREFIX. 



00171 



MCP-DATACM - OCSYbTEMTABLES INTRINSIC - U2-19-7§ A(iE 5 ° 
TERMINATED bY A PERIOD. 
C. <H0W>t4] e BIT MASK OK UCP-S UN-LlNt. 



0. <H0W>[5] 
NDL. 



BTT MASK Of DCP-S CONFIGURED IN 



4 * NIF STAT1UN RECORU. 

4. WITH THE EXCEPTION OF <OPTION> » J# DATACOM MUST BE 
RUNNING WHEN THIS INTRINSIC IS INVOKED (I.E.. AT LEAST 
ONE OCR INITIALIZED). 

5. IF THE INTRINSIC IS PROPERLY CALLED AND THE REQUESTED 
INFORMATION IS AVAILABLE 1 HE VALUE RETURNED BY THE 
INTRINSIC (T) CONTAINS THE FOLLOWING! 

A. T. 1391201 » SIZE (WORDS) OF INFORMATION * 
NFW SiZE OF <HOW>. 

B. T. 119*20) = MFMORY ADDRESS OF THE REQUESTED 
MCP TABLF. IF APPLICABLt, OTHERWISE ZFRO. 

6. IF THE 1NFURMATI0N WAS N01 SUCCESSFULLY OBTAINED* THE 
VALUF RETURNED BY THE INTRINSIC INDICATES THE REASON AS 
FCLLOwSJ 



-1 * DATACUM NOT RUNNING ANU 

0PTI0N> NEU 3. 
-2 * <UPT10N> LSS OR <OPTION> GIR 4. 
-3 « <INVALID LSN IN <ROW> LO) KOPTION> 
-4 = INVAL1U NAME IN <ROW> 

<UPT10N> » 4). 
-•> « UNKNOWN STATION (<OPTIUN> * 4), 



4). 



(» THE OPTION ^INSTALLATION MUST Bt SET WHEN COMPILING THE 
USER PROOKAM. 

8* KHEn CALLED WITH «OPTlON> ' 4. 1 Ht STATION DESIRED MUST 
BE SPECIFIED EIIHER BY PlAClNG THE STATION NAME IN FRCUIC 
STARTING IN <ROw>lOJ, OR BY SPECIFYING THE STATION LSN IN 
<R0W>10). 



DOir/6 MCP-DATACM - SUBTRACT STATlUN ERROR - lu-iO-72 
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U01f6 MCP-UATACM - SUbTRACT STATlUN ERHUH - 10-31W2 

FOR MOVE STATlUN UCWRITE, AN ATTtMPT TO SUBTRACT A SUTION WHICH IS 
NOT ATTACHED WlLL NOW Rt TURN UCWRIU ERHUH #121. ON PAGE H 1 Uf THE 
UCalGOL LANGUAGE MANUAL* ERROR #121 SHOULL' Ht ADDED MS FOLLOwSt 

121 AN ATTEMPT TO PERFORM MOVE SlAlIUN WAS MADE 

WHERE THE SUURCE STATION IS NOT ATTACHED TO THt 
REQUESTING MCS. 



U01S»9 MCp-DATACM - UPDATE LINE DCwRITE FUNCTION - 05-30-72 

■ ■Mm «Wmb«*wwhi« m ■•■■n« m m m m ««««««« m«m*w«*» m « a 

IHE UPDATE LINE ATTRIBUTES DCWRITE UYPE*131> ALLUWS AN MCS TO 
MOUIFY THE ADAPTOR TYPE AND/OR MODEM FOR A PARTICULAR LINE. 

HEuilIHEOt 

1. MESSAGE PARAMETER (MINIMUM SIZE " V WORDS) 

2. MSGtOl.Uflfl] « 131. 

3. MS6171 .(23124 J « DL «> LINE ADDRESS 

<». MSGt81.r22t7] « *> LEAVE ADAPTER CLASS UNCHANGtD 

+ »> NEW ADAPTER CLASS 
5. MSG18 J «C23l 1 3 « *> NEW AUAPTER REQUIRES MUDEM 

* 1 ■> NEW ADAPTUR DIRECT CONNECT 
6» MSGtei.t7tBJ * *> LEAVE MODEM UNCHANGED 

« MUDINX ■> INDEX INTU MESSAGE FOR NEW MODEM 
NAME . 

SEMANTICS* 



THE LINE UPDATE IS PERFORMED FOR THE SPECIFIED LINE* AND IF ANY 
STATIONS EXIST ON THE LINE* THE LINE IS LEFT REAUY. IF MSGtai.1231 
U » 1* NO MODEM NAME MAY BF SPECIFIED. IF MODINX t 0* THE NEW 
MOUEM NAME MUST bE IN EBCDIC AND BE TERMINATED BY A PERIOD. ONLY 
VALID* NUN-DEFAULT MODEM NAMES AS SPECIFIED IN NDL AHE ALLOWED. 



U019V 



MCR-UATACM 



UPDATE LINE DCWRlTE FUNCTION 



05-3 



oW 
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tXAMPLEl 



ALLUCATt(MSG.ll ); 

MSGtO] t» & 13H4M81J 

MSGL7] := R 1C23U1 * DL [??H5]J 

MSGlfl] := R 2C 2?3 : ti J & 9 [ 7 t fi 1 J 

hEPLACE PUlNTEH(MSGl9]#d) HY "NE'WMUDEM . " I 

RESULT is DlWHlTE (MS(i); 



U0200 



MCP-UATACM - MUVE ST AT IlJN-DCWRIl E FUNCTION - 05-30-72 



THE MUVE/ADO/SUdTRACT STATION DCWRITE(TYPE « 130) HAS BEEN FXTENUFD 
TU ALLOW NEW LINE ATTHlttUTF.S TO BE SPtClFIEU IN THE MOVE ANU ADO 
FUNCTIONS. THE NEW FORMAT UF THE MESSAGE HARAMETtH IS AS FOLLOWS! 

nEuoIREOt 

1* MESSAGE PARAMETER (MINIMUM LENGTH * 8 WORDS) 

2. MSGIOl.U/ifll * 130 

3. MSGlOl.t39»lhJ » VARIANT FIELDl 

• [2411] » »> LEA\/F STATION NOT READY AFTER MOVE 

1 »> LEAVF STATION READY AFTER MUVE 

• (25111 > II •> DU NOT UPDATE STATION ATTRIBUTES 

1 »> UPDATE STATIUN ATTRIBUTES 
AS SPECIFIED. 

4. MSGtoi. [23124] * current lsn or dls 

5. MSGtn. (231241 = ■> SUBTRACT STATION 

UL «> DFSTINATION line address 

uptignal information (required tf msg[oj.[25»h « in 



6. MSGLfll * NEW LINE ATTRIBUTES! 

L23»fll a NEW AOAPfER TYPE NUMBER 

tl5»«l ■ TERMINX ■ INDEX TNTU MSG F UR NEW TERMINAL NAME 

IflU} * MOUEMINX * INDtS INTO MSG FOR NEW MODEM NAMF 



2«22 -i-lSil^tl ! I^H STATiOfJ-DCWHlTt FUNCTION • 05-30-^ E 

7. MSGCTERMINXJ * NEW TERMINAL NAME FOR STATION 
8» MSGlMOOEMlNX] « NEW MODEM NAME FOR STATION 

THE NEW SEMANTICS FOR UPDATING LINE ATTRIBUTES IS AS FULLOWSl 

IF HSG[0].(2SI1 J = 1 AND MSGt 7 ] . I 23 I 2<» I t THEN THE LINE 
ATTRIBUTES SPECIFIED IN MSGT8] WILL Bt APPLIED TO THE NEW 
LINE. IF A PARTICULAR ATTRIBUTE FIELD IN MSG18) IS ZERO. THE 
CURRENT LINE ATTRIBUTE WILL NOT BE MODIFIED. NAME ATTRIBUTES 
MUST BE SPECIFIED IN EBCDIC AND BE TERMINATED bY A PERIOD. 
THEY MUST CORRESPOND TO VALIO NON-DEFAULT NAMES IN NDL. 

EXAMPLE! 

ALLOCATE CHSG»U)J 

MSGtOJ l» LSN & 130 U7I8) & 3C39I161J 
MSCitn l» & 1 12311] & DL£?2U5)J 
MSG£8] I* & 8912318] * NEW ADAPTER TYPE 

& 9I15t«]| X NEW TERMINAL NAMfe INDEX 
REPLACE POINTER (HStil9]»8) BY "TERMINAL29 .") 
RESULT la DCwHlTE(MSG); 
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U0233 



MCP-OATACM - DCP FAULT RESULT - 02-19-73 



WHtN A DCP FAULT OCCURS, ALL CURRENTLY RUNNING MCS S WHICH HAVE 
INITIALIZED THEIR PRIMARY QUFUF WILL RECEIVE A DCP FAULT RESULT 
MESSAGE (TYPE • 20) IN THfclR PRIMARY GUtUE. THIS fAULT RESULT IS 
ALSu PLACED IN THE S YSTEM/SUMLOG. A DCP FAULT ALWAYS RESULTS IN 
TERMINATION OF THE CORRESPONDING OCC STACK. THIS NUTIFICATION CAN 
UNLY OCCUR If THE DCP "STOP-ON-FAULT " SWITCH IS IN THE NEUTRAL 

THE FORMAT OF THE DCP FAULT RESULT IS AS FULLOWSl 



(RUN) POSITION. 



1. MSG[G).U7l8) ■ 20 (MSG CLASS * DCP FAULT) 

♦12311) ■ 1 ' 

.12217] ■ DCP NUMBER OF FAILING DCP 

♦ C15U6 J s 

2. MbGt2). [391161 « 72 (SUE OF TEXT P0R1 ION OF MESSAGE) 
J. MSGU7I24) ■ TIME OF MESSAGE (1/60 OF A SECOND) 



D0233 MCP-DATACM - DCP FAULT RESULT - 02-19-73 

4. MSGU] a TAGS OF WURDS IN MSGt B )«>MSGC 1 7 1 

.[47141 * TAG UF MSUI81 
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.11114] • 
5* MSGtd]. 147124] > 

■CP3I24) ■ 
6* MSGI9] s 

7* MSGHO] * 

ti» M5GIHJ x 

V. MSG112J ■ 

10. MSGU3) * 

11. HSG[14] » 
12* MSGH5) ■ 

.[39116] 
•14 718] 
13. MSGH6] a 
.[23124) 



TAG UF MStit 173 
AA»AC.AI REGISTERS 
D#Y#X REGISTERS 
SM WORD 7 
SM WORD 6 
SM WORD b 
SM WORD 4 
SM WORU 3 
SM WORD 2 
SM WORU l 

■ INSTRUCTION ADDRESS REUISGER 
« FAULT INDEX 
SM WORU 
» MA REGISTFR CONTENTS 



14. MSGC17J 

THt VALUES 
ARLt 



wORU REGISTER CONTENTS 



OF THE FAULT INDEX CODE ANU THtIR RESPECTIVE MEANINGS 



a 
l 

2 
3 
4 
5 
6 
7 
6 
9 

10 » 

11 ■ 

12 » 



at 



INITIALISE FROM SCAN-UUT 
LM DATA INVALID AODRESS 
LM DA1A PARITY ERROR 
ADAPTER CLUSTER ERROR 
MM PROTECTED WRITE DENIED 

mm data Invalid address 
mm data parity error 
mm data access error 
lm instruction tag lrror 
lm instruction invalid address 
lm instruc11qn rarity error 
unexpected timeout 
mm instruction tag error 



D0233 MCP-DATACM - UCP FAULT RESULT - 02-1V-73 

13 ■ MM INSTRUCTION INVALID ADDRESS 

1* ■ MM INSTRUCTION HARITY ERROR 

15 * MM INSTRUCTION FfcTCH ERROR 

16 « RECURSIVE FAULT 
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U0234 MCP-UATACM 



DATACOM ERROR LUGGING - 02-19*72 



UAlACOM ERROR LOGGING HAS BFEN PR0V10ED AS A DCALGOL FUNCTION 

CALLED "DCeRNORLUGGER". BY SELECTIVELY INVOKING THIS INTRINSIC, AN 

MCS CAN HAVE INFORMATION ABOUT HIS OATACUM ENVIRONMENT ENTERED INTO 
THE SVSTEM LUG. 

fHt OATACOM SUBSYSTEM (DCC) ALSO UTILIZES THIS INTRINSIC TO 
UNCONDITIONALLY RECORD MtS INITIALIZATIONS AND DCP FAULTS. 

THt SYNTAX FOR CALLING DCEHRQRLOGGER IS t 

0CEHR0RL0GGER(<MSG>»SIZE>) 

<MSG> It* AN ARRAY* ARRAY ROW OR MESSAGE* 

<S1ZE> ■!!■ REAL EXPRESSION. 

THE <MSG> IS ENTERED INTO THE SYSTEM LOG FOR THE NUMBER OF WORDS 
SWE>> SPECIFIED* PREFIXED BY A 6-WORD HEADER AS DESCRIBED IN THE 
WORK FLOW MANAGEMENT DOCUMENT. THE MAJQfcl TYPE ASSIGNED TO THIS 
ENTRY IS FIVE* AND THE MINOR TYPE IS SET TO FOUR. 

THE FORMAT OF THESE RECORDS IS ALSO DEFINED IN THE WORK FLOW 
MANAGEMENT DOCUMENT. 

IF THE GIVEN LOG RECORD COULD NOT BE ENTERtD IN THE SYSTEM LOG, 
DCEMRORLOGGER WILL RETURN A NEGATIVE RESULT INDICATING THE SPECIFIC 
REASON THE REOUEST WAS DENlFD* THE VALUES RETURNED BY 
DCERROHLOGGER AND THEIR RESPECTIVE MEANINGS AREl 

log entry mode successfully 

-1 <s1ze> parameter was greater than the true size of <msg> 
-2 caller is not a valid mcs or has not initialized his 
primary queue* 
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a «•«•«• a aaaaaaaaaa a a a a a a a a a •■ at a a aaaaaaa a • a a a a a, a • 

-3 A DISK ERROR OCCURRED ATTEMPTING TO LOG THE ENTRY* 
EXAMPLEl 

H< * DtERHORLOGGtR (A[*J, 6)1 

00*79 OATACOM - DCAI.GUL QUEUF TANKING - 03-23-73 

aaaaa aaaaaaa a aaaaaaa aaaaa aaaaaaa a mmmmmmmm 

WHLN INSERTING A MESSAGE TO THE HEAD OF A QUEUE* THE FOLLOWING 
PKUtiLEM CAN QCCUhl IK THE MESSAGE TO BE INSERTED IS LARGE ENOUGH TO 
iNVOKt DISK TANKING* THE LAST MESSAGE CURRENTLY IN THE MEMORY- 
RESIDENT PORTION UF 1HE UUEllE WILL BE TANKED TO DISK BEHIND THE 
LAST MESSAGE IN THE QUEUE. IF THE MEMURY-RESIDENT PORTION OF THE 
wUEUE IS EMPTY, THEN THE MESSAGE TO BE INSERTED WILL BE TANKED 
bEHlNU THfc LAS1 MESSAGF IN THE QUEUE, REGARDLESS UF WHFTHER IT 
SHUULD GO TO THE HEAD OF THE QUFUE UR NOT* 



00*85 



MCP-DATACM - UPDATE LINE ATTRIBUTES RESULT - 04-11-73 



MESSAGE FORMAT! 

MSGLO J • C47 Ift J a 19 

MSGC0lt[39t40] « AS ORIGINALLY PRESENTED TO UCWRlTE 
MS«j[U.t47lfl] » 0»> UPDATE LINF SUCCESSFULLY COMPLETED 

# 0»> INTERPRETED AS THE UCWRlTE ERROR VALUES 

PRAGMATICS! 

AN MCS PERFORMING AN UPDATE LINF ATTRIBUTES DCWRITE (TYPE-131) WILL 
HECEIVE A TYPE 19 RESULT MESSAGE AT THE COMPLETION OF THE REQUEST. 



UQdtlb MCP-DATACM - 1NIT1ALIZF PRIMARY QUEUE - 04*11-73 



«HtN AN MCS PERFORMS AN INIUAlIZE PRIMARY QUEUE DCWRITE (TYPE-O), 
INFORMATION IS RETURNED TO THF MCS VIA THE MESSAGE PARAMETER. IF 



U0286 MCP-DATACM - INITIALIZE PRlMAhY QUEUf - U<»-n-75 A(iE 
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THt PASSED MESSAGE IS TOU SMAl L TO CONTAIN THE INF LRHAT ION* A NEW 
MESSAGE AREA WILL BE ALLOCATED IN PLACE OF IHE ORIGINAL AREA. THE 
FOKmaT OF THE MESSAGE IS AS FOLLOWS! 



MSGIIO) « UNCHANGED 
MSGUJ « NUMBER OE THIS MCS 
MSGI2] « MAXIMUM VALID LSw 
MSGUJ THRU MSGI5J * UNCHANGED 
MSGi,6J ■ PREFIX OF THE CURRENT DATACQM FILE 
IN EBCDIC* TERMINATED BY A PLRIOU* 
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DATA MANAGEMENT 



U0iJ5« DM6700 - OMUPDATE - 0?-19-73 

■>«»•«•• ■>•••«• m ■*■ mm m m m m >■•*> ■ m m 

rUHPQSE! UMUPUA1E IS A ONE-TIME ONLY PROGRAM THAT 

CONVERTS EXISTING II. 3 DATABASES TO II. 4 
DATABASES. IT WAS WRITTEN SO THAT THE 
USER WOULD NUT HAVE TO REGENERATE HIS 
DATA-BASES OR RECOMPILE HIS PROGRAMS THAT 
USE THOSE DATA-BASES. 

COMPILE INFORMATION! THE FILE TAPE SHOULD BE LABEL EQUATED TO 

"SYMBOL/UMUPOATE ,, AND A S MERGE CARD 
INCLUDED TN THE CARD ULCK, 

HUN INFORMATION! THE OBJECT JOB WILL LOOK FOR A CARD FILE 

WHOSE NAME IS CARD. THE CAKD FORMAT IS 
FREEFOKM AS FOLLOWS! 

DATA-BASE * <DATA-BASE NAME>I 
THE STEPS FOR RUNNING ARE! 

1. LQAU THfc DATA-BASE TO BE UPUATED. 

2. RUN DMuPDATE* 

3. IF NO ERRORS ARE NOTED. THE USER MAY 
THEN COMMENCE TO USE THE UPDATED 
DATA-BASE OR Hfc MAY DUMP IT TO A 
TAPE FOR LATER USE. THE UStR SHOULD 
kiE CARtKUL ANU NUT FORGET TO DUMP 
THE ERRORS FILE AND THE ALTERED 
"OVERFLOW" F ILE. 

ACTIONS! UUMPDAIE GENERATES A FILE CALLED! 

DM/<DATA-BASE NAME>/ERRORS 
AND ALSO GENERATES AN SDL DICTIONARY 
RECORD FciR THE UM/<DAT A-BASE NAME>/ 
OVERFLUW THEN CHANGES THE NAME OF THE 



00254 DM6700 "* UMUPOATE - 02-19-73 
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NUTEl 



OVEMLOW E ILE TU AN AVAILABLE STRUCTURE 
NUMBER. THE NE* STHUCTORE NUMBER UF 
OVERFLOW KILE IS THEN INSERTED INTO RECORD 
ZERO OF THE SDL DlHECTURY. 

NUT ALL DATA-BAStS HAVE A DM/<DAT A-BASE 
NAMES'/OVERFLOW FILE. OMUPDATE MUST S1ILL 
Bt RUN TU GENtRATt THfc DM/<OAT A-H ASF 
NAME>/tRRHRS FILE. A MESSAGE WILL BE 
1NSERTLD INTO THE LOG THAT THt CHANGE DM/ 
<DATA-HASF NAME>/OVERFLOK TO DM/<D ATA-BASE 
NAMF>/<NUMBEH> DID NOT OCCUR. THIS SHOULD 
BE IGNORED. 
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UM6700 



DM - HEOUEST HANDLER EAECUllUN - 01-19-73 



REQUEST HANULERS FOK A GIVEN DATABASE WtHE PREVIOUSLY PROCESSED AS 
SYSTEM/DM670U. THEY ARE NOW PROCESSED AS DM <DA T AB ASE*NAME> . 



U0*!>6 DM670U - DM - SOL I MPRllVEMENf S - 02-19-73 
PUKPUSL I 

i»YMdUL/SDLS HEPLACES S YMbUL/SDL/STHUC TURL ANU S YMBOL/SDl / IN I T I AL I 2E . 
THIS WAS DONE TO IMPROVE STABILITY, DUCUME NT Al ION AND 
MAINTAINABILITY. 



COMPILE INFORMATION! 



SYSTEM/SDL/STNUCTURE IS COMPILED BY LABEL LUUATINO THE TAPL FILL 
FOK UCALGQL TO "SYMBOL/SOLS" AND INCLUDING A S SET STKUCTUPt AFTER 
fHL i MERGE CARD IN THE CARD DECK. SYSTEM/SDL/ I N I T I AL 1 ZE IS 
CUMPILED IN A SIMILAR MANNtR AS ABOVE WITH THE EXCEPTION OF THE S 
SEI STRUCTURE CARD WHICH SHOULD BE REPLACED BY A % i>El INITIALIZE. 

RUN INFORMATION* 



U0256 
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DM - SOL IMPROVEMENTS - 02-1V-73 
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aAM£ AS PREVIOUS SULS EXCEPT THAT HUTH THt SDLS NOW USE A STRICT 
INfEHPRErATION UF SYNTAX AND SPFLLING > HUM THE DOCUMENTATION. 

PIT FALLS* 

IHt PROBLEMS THAI WERE NUTLD BY PEUPLE CUNVEHTlNG FROM «OLD" 5DL TO 
"NLw" SDL WERE"! 

i. THE STRUCTURES FOR SYSTEM/SUL/ IN I T I AL I ZE WEHE UP BY ONE 
BECAUSE OF STRUCTURE ONE NOW BEING RESERVED FOR THE 
OVERFLOW FILE. SYSTEM/SDL/ I N 1 T i AL I ZE DECKS WHICH 
REFERENCE STRUCTURE NUMBERS MAY BL WRONG* SINCE THE 
OVERFLOW FILE WILL BECOME STRUCTURE #1. IF REGENERATING 
UNDER 2.4. ALL STRUCTURE NUMBERS USED IN THE 2.3 SDL/ 
INITIALIZE DECl\ (I.E.* SET 12 BLUCKFACTOR * 10M WILL BE 
OFF BY ON* SINCE STRUCTURE #1 IS NOW USED FOR ONE 
OVERFLOW ^ ILE. 

2. THE SPELLING AND SIZE UF KEY WORDS WAS NOT ENFORCFD IN 
THE "OLD" SDL. HOWEVER* "NEW* SDL DOES MATCH THE 
DOCUMENTATION MURE CLOSELY (E.G.. PREVIOUSLY SETSONG 
COULD HAVE BEEN SUBSTITUTED FUR SET). 

NEw FEATURES! 

THERE HAVE BEEN TWU NEW FEATURES ADDED TO THE SUL S. THEY ARE 
UEFAULT AND * OPTIONS. DEFAULT IS HANDLED WITH THE FOLLOWING 
SYNTAX! 

DEFAULT <UEFAULT 0PTI0N>I 

<UEFAULT UPTIUN>!!« POPULATION *<NUMBER><UEFaULT OPTION> 

/DEVICF»<UISKxDEFAULT UPTI0N> 
/DUPLICATED ■ <STATE> <DEFAULI UPTI0N> 
/<EMPTY> 



<0ISK> » la DISK 

/DISKPACK 
<STAT£>! t« ON/OFF 



00256 DM6700 • UM - SOL IMPROVEMENTS - 02-1V-73 
<NUMBER>II« (POSITIVE INTEGER] 
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DEFAULTS ALLOh the user tu change the normal defaults to something 

MOKE AGREEABLE TO HIM. THE POPULATION DEFAULT ALLUWS THF USER TO 

CHANGE THE VALUE OF DDL POPULATION * * FROM 10000 TO SUMETHING MORE 

IN LINE WITH THE SIZE OK HIS DATA-BASt. THIS POPULATION IS ONLY 

UStu TO INITIALLY ALLOCATE SPACE AND DOES NOT IMPOSE A LIMIT TO 
POPULATION. 

THt DEVICE DEFAULT WlLL ALLOW THE uStR TU SPECIFY WHERE ALL HIS 
UAIa-BASE FILES WILL RESIDE. ANY DEVICE SPECIFIED ON INDEX AND 
ULE STATEMENTS IN STRUCTURE AS WELL AS ANY SET STATEMFNTS FOR 
INITIALIZE WILL OVERRIDE THE DEFAULT CUNOITIUN. THE VALUE OF 
DEFAULT DEVICE IS USED BY SYSTEM/SDL/STRULTUKF TO DETERMINE WHERE 
TO PLACE THE UM/<DATA-BASF NAME>/SOL FILE. IT WILL KFSIDF ON THE 
DEVICE SPECIFIED IN THE DFVICF. DEFAULT SYNTAX. DM/<bS-NAMF>/ERRQRS 
WILL ALSO BE PLACED WHEREVER THE DEFAULT DEVICE SPECIFIES. 

THt ONLY FILE NOT AFFECTED BY THIS STATEMENT IS DM/<06-NAME>/UDL . 
IT MUST ALWAYS RESIDE UN HE AU-PFR-TRACK . 

THt DUPLICATED DEFAULT wlLL ALLOW THE UStR TO SPECIFY THAT ALL DATA 
MANAGEMENT FILES (EXCEPT DM/<OATA-dASE-NAML>/DDL ) ARE DUPLICATED. 
AGAIN THIS MAY BE OVERBIDDEN FOR SPECIFIC FILES IN THE SET 
STATEMENT FUR S YSTEM/SuL/ INI T I ALI ZE . THE ERROR FILE WILL BE 
DUPLICATED IF DUPLICATED « UN AND WILL BL A SYSTEM DUPLICATFD FILE. 
ALL OTHEH DUPLICATED FILES ARE DUNE THROUGH DM670U. THE INITIAL 
VALUES QF THE DEFAULT AREJ 

POPULATION « 10000 
DEVICE * DISK 
DUPLICATED « OFF 

tXAMPLEt 

?run system/sdl/structuke s 
?data card 

OEF AOLT 

POPULATION * 65000 
DEVICE » D1SKPACK 
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DUPLICATED ■ GNJ 



C 



( OTHER STRUCTURE CARDS 

t 

?END 

THE EFFECT Of THIS WOULD BEl 

FUR ALL SETS WITH PUPULATIUN «*» 65000 WOULD BE USED TO 
CALCULATE SUCH THINGS AS AREASIZE. BLUCKING. ETC. 

ALL FILES, UM/UB00l/» WOULD RESIDE UN DISkPACK EXCEPT DM/ 
DB001/DDL. 

ALL FILES. UM/OB0Ol/» WuULn BE DUPLICATED FXCEPT DM/DBOOl /DDL . 

iMt DOLLAR OPTIONS ARE SIMILAR TO THuSE OF THE B6700 COMPILERS) 
THEY ARE: 



DEBUG 



LIST 



PUP 
RESET 
SET 
SINGLE 



THIS SETS THE TRACE BOOLEAN WHICH WILL EVOKE THE 
DEBUGGING KOUTINE UF SDLS. 

SETS THE LISIH BOOLEAN. IF LISTB IS FALSE. NO 
LISTING WILL BE GENERATED (EXCtPT E OR ERRORS). IF 
TRUE. THEN NORMAL LISTINGS WILL BE GENERATED, 

POH PUPS A 4M-BI1 STACK WITH A FALSE. 

RESET PUSHES A 48-BIT STACK WITH A FALSE. 

SET PUSHES A 46-BIT STACK WITH A TRUE. 

IF THE HSr OPTION IS StT* THEN THE GENERATED 
LISTING WILL Bt SINGLE SPACED. 



INUTEJ LIS1 IS THE UNLY S uPTIUN WITH AN INITIAL VALUE OF TRUE.) 
CHANGES TO SYSTEM/SUL/STRUCTUREt 



STHUCTURE NUMBER UNE IS NOW RESt-NVEU E tiH THE "UVERFLOW" FILE) 
1HEREEURE* USER STKUCTURES NOW START AT TwO, THIS COULD CAUSE A 
PRUBLEM IN SYSTEM/SUL/INITIALUE IF 1 HE SET STATEMENT IS USEDJ I.E.. 
ULU CARD DECKS WlTh ThL SET STATEMENT IN 1HEM MUST BE REMADE. 
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FIi.ES AND OVERFLOW FILES FOR LISTS ARE NUW BLUCKtD TO A SEGMENT 
dGUNOARY UP TO A MAXIMUM OF lOOO MJRUS* THIS WAS DONE IN AN 
ATTEMPT TO GET MORE EfUCiENT USE Oh UlSK WMEN THE UAlA-BASE FILES 
ARE STRUCTURED. THIS MAY bF OVERRIDDEN IN SYSTEM/SDL/IN IT I AL I ZE . 

CHANGES TO INITIALIZER 

THE FOLLOWING SYNTAX HAS BEEN ADDED TO THE SYNTAX KG* SETl 

DUPLICATED a UN/OFF 
DEVICE « <DISK> 
<DI5K>I»» QlSK/OiSKPACK 



Utl-AULT VALUE OF 



DUPLICATED ALLLhS THE USER TO OVERRIUL Thf 
UUPLICATEU (SEt DEFAULT IN NEW FEATURES). 

AUUIT SYNTAX SHOULD BE ALTERED AS FOLLOWS: 

<AUOIT MEDIUM>JI» DLVICE » <K INO>/<EMPT Y> 

<KIND>l«a DISK/UISKPACK/TAPE7/TAPE9/PE1APE 

STRUCTURE NUMBER ONE IS NOW RESERVED F UR THE OVFRFLOW FILE, 
THEREFORE. OLD S YSTFM/SlJL/ IN I T I AL III DELrvS WILL HAVE TO BF CHANGED 
TO REFLECT FMIS MODIFICATION. 

CORHECTIUNSJ 



THE FOLLOWING RECORDED ERRORS HAVE bEEN LORRtCTEDl 

1. RERUNNING SYSTEM/SUL/INITIALUE WILL NO LONGER INCREASE 
THE INDEX-SEUOENUaL TABLES WITHOUT buUND. 

2. CHANGES IN BLOCK FACTOR FOR RANDOM INDEX WILL NOW Bl 
REFLECTED IN THE F 1LE FOR THAT iNLtX. 

3. INDEXSIZE PARAMETERS OF THE INDEX STATEMENT FROM SYSTEM/ 
SOL/STRUCTURE WUULD PRFVIOUSL UNLY BE USED IF ALL WERE 
NON-ZERO. UNDER THE "NFW" SDL THOSt WHOSE VALUE IS NON- 
ZERO WILL BE USED! AnO IF THF PARAMETER IS ZFRO. THEN 
SYSTEM DEFAULT ACTION WILL OCCUR FOR THAT PARAMLTtR. 
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4. PKEVIUUSLY IN SYSTtM/SUL/lNllIALlZt A USER CUULD SPECIFY 
AN ONLY OPTIUN (lit.. LIMITSUNLY UK AUDllONLY, FTC.) 
ALONG WlTM A SET STATEMENT AND THE DATA-BASE WOULD NOT bf 
INITIALIZED OK KE I N I T I AL iZt U . UNDtR THE "NEW" SUL A 
WARNING MfcSSAGE WILL BE ISSUED AND THE DATE-BASF WILL BE 
INITIALIZED UK Kt INITIALIZED. 

5. IF DISJOINT aSSUCIATED SETS WITH UROtRiNGS HAD CONTAINED 
A SET wiTH MURE THAN 45 ITEMS, THt UF^ SET TO THE ORDFKlNG 
ITEM WOULD BE WKONG. THIS HAS BEEN CURKFCTEDi 
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wHiLL RUNNING SYSTtM/DUL, "DDL <DAT ABASE -NAM£>" WILL HF DISPLAYED. 
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WHILE SYSTEM/SDL/STRUCTURE IS RUNNING, A 0ISPLAY OF THE FORM rt STH 
<DATABASE-NAME> M WILL APPEAR (IN THE CUNSULE. THIS IS KEPLENISHED 
AS EACH STRUCTURE IS CUMPILF.U. 

SYSTEM/SUL/INITULIZE WILL DISPLAY A MESSAGE "IN I T<DATABASE-NAME>" . 
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(HE DATA COMPACTIUN FACILITY OF DM6700 HAS BEEN IMPROVED AND 
IHUROUGMLY TESTED. IN APPROPRIATE SITUATIONS* IT WILL YIELD A 

SUBSTANTIAL KEUUCTION IN DISK SPACE k OK A RELATIVELY SMALL OVERHEAD. 



U0260 0M67O0 - GLOBAL FOR EMREDDFD SETS - 02-19-73 



if GLUBAL IS SPECIFIED FuR AN EMBEDDED SET AND IS NOT RFSIUENT, 
IHEN THE FILE IN WHICH IT KESIDFS (LIST UVERFLUW FILL) WILL NUT AND 
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CANNOT BE BLUCKEO. 
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IF A KEY OF RETRIEVAL IS DECLARED TO BE KANDUM AT SDL TIME* IT MUST 
HAVE BEEN rtEUUlREU IN DDL AND MUST NOT HAVF. BEEN IN A SET WITH 
POPULATION**, 



U0262 DM6700 - REQUIRED IIFMS - 02MV-73 

A PREVIOUS LIMITATION WHEKEBY ONLY 4/ ITLMS COULL EXPLICITLY BE 
KEWUIREQ MAS BEEN REMUVEO. 
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MOUIFY ORDEHING OF A DISJOINT SET WITH AN EMBEDDED ASSOCIATED SET. 
EXAMPLE 



SI SET 

POP 

ORDERFD ON A 
(A ALPMAC2); 
B QN(6); 



S2 SET 

P0P*100 

(X ALPMAC6}* 

S3 SET 

P0P»4 
ORDERED UN A 
(CONTAINS NUMBERS OF SI) 



PREVIOUSLY ANY ATTEMPT TO MOUIFy THE KEY OF ORDERING FDR ANY MEMBER 
UF A DISJOINT SET* SI* THAT HAD AN EMBEDUED SET* S3* CONTAINING SI 
ANU OHOERE!) ON THE SAME KEY AS SI WOUkU Nfc'SUL'l IN A STATUS OF 101. 
THIS RESTRICTION HAS BEEN EASED SOMEWHAI. THE KEY OF ORDERING FOR 
A MEMBER OF A UISJUINT SET* SI. MAY BE MODIFIED PROVIDED THAT THIS 
MEMBER IS NOT ALSO A MEMBER DF ANY EMbEDDED ASSOCIATED SET (I.E. 
53), NOR POINTED AT VIA LINK IN ANY SET. 
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IHL STOHE AFTEK A MODIFY WILL NOT CHANGE THE CURRENT (I.E. CURRENT 
RECORD NUMBER). THIS IS A CHANGE FROM II* 3. 

THERE ARE TWO INSTANCES IN WHICH THIS CHANGE WILL PROVIDE DIFFERENT 
KEJjulTS FROM THE PREVIOUS SCHEME OF CHANGING THE COhRENT AFTER THE 
STUHt AFTER A MODIFY. 

1. MODIFYING THE KEY OF ORDERING 

THIS CHANGES THE LOGICAL POSITION UF A MEMBER IN A SET BOT 
THE CURRENT POINTER REMAINS WHERE IT WAS AFTER THE MODIFY. 

EXAMPLE 

SI SET 

POP** 

ORDERED ON A 
(A 
B 



)l 

ASSUME A * 5 
MODIFY NFXT OK SI. 
MOVE 10 TO A. 
STORE SI. 



(ASSUME CORRENT IS MEMBER #21 
AND A»5) 

(CURRENT REMAINS #21 EVEN 
THOUGH IHE MEMBER WITH A«10 MAY 
BE MEMBER #101) 



2. MODIFYING A RANDOM KEY OF RETRIEVAL 

MODIFYING A RANDOM SET OF RETRIEVAL ALSO CHANGES THE 
LOGICAL POSITION OF MEMBER IN A SET BUT NOW THE CURRENT 
POINTER WILL NOT BE CHANGED AFTER THE STORE. 
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THfc FOLLOWING SYNTAX IS ADDED TO THE SYNTAX FUR INDEX IN SYSTEM/ 
SOL/STRUCTURE TO bE USED AS AN ALTERNATIVE SYNTAX FOR INDEXS1ZE. 
1HLY AK£ AS FOLLOWS* 

^K INOEX-SEUOENTIAH 

COAHSE * <NUMbEK> 

THIS IS USED bY THE USfcR TO SE I THE DESIRED COARSE 
TABLE SIZE (NUMBER Of tNTRIES PER COARSE TABLF) 

FINE » <NUMBEh> 

THIS IS USED bY THE USER TO SET THE UESIREO FINE 
TABLE SIZE (NUMBER Oh ENTRIES PER UNE TABLE). 



INITIAL a <NUM8EK> 



THIS IS USED BY THE OSER TO SET THE DESIRED INITIAL 
LOAD FACTOR. IT MUST BE LESS THAN OR EQUAL TO FINE* 
SO THIS MUST BE SET AFTER FINE IS Sft . 



FOR INDEX-RANDOM 

NUMBER 

tORl NUMOFfABLES 

[OR! NUMBEROFTABLES « <NUHHER> 



THIS IS USEU BY THE USER TU SET UP THE DESIRED 
NUMBER OF BASIC TABLES. 



TABLESIZE * <NUMBER> 



THIS IS USED TO SET UP THE DESlHfc.0 NUMBER OF ENTRIES 
IN THE BASIC TABLE. 



FUR RANDQMI 

iLOCK * <NUMBER> 
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THIS IS USED BY THE USER TU CHANGE THE NUMBER Of 
BLOCKS IN THE BASIC AREA. 



KUK TAG» 



TAGS 

tURJ BLOCK e <NUMBER> 



THIS IS USED BY THE USER TO CHANGE THE NUMBFR OF 
TAGS PER RECORD. 

FOR BIT I 

BLUCK » <NUMBER> 

IH1S IS USEU BY THE USER TO CHANGE THE NUMBER OF BIT 
VECTORS PER RECORD. 

ALL THE ABOVE ARE TYPE DEPENDENT. ERtiO. TYPE MUST BE SET BEFORE ANY 
UK THE ABOVE ARE USED. 

00269 DM6700 - OM - DDL WARNING - 02-19-73 



IHt t-ULLUwiNU DDL IS ILLEGAL BUT NOT CURHINTLY SYNTAXED AS SUCH. 



SI SET 

POP * 100000 
ORDERED ON A 
( 



Si SFT 

POP « 4000 

ORDERED ON A DUPLICATES ALLOWED 

(CONTAINS MEMBIRS Of Sl)J 



); 

IF A OA OH IA SET IS URDERED ON A KEY IHAT IS ALSO A RETRIEVAL OR 

URUERING KEY Of A DJ SET AND THF KEY DUES NUT ALLOW DUPLICATES THEN 

THE OA OR IA KEY MAY NOT ALLUW DUPLICATES. 



00290 DM6/00 



UM - NLN STATUS - 02-16-7* 



PAGE 69 



UU290 



UMft/OQ - DM - NEW STATUS - 02-16-73 



A NEK STATUS HAS BEEN ADDED. STATUS * 8 INDICATES AN ATTEMPT TO 
PERFORM AN OPERATION ON A SUBSUMBEU MtMbER THAT HAS NO CURRENT 
MASTER* 
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THE WORD "RECUVEHY" IN THE TITLE lb USED TU ENCOMPASS THE 
EN TIRE SET UF PROCEDURES FXJR DATA bASE RECOVERY . IT IS 
ALSO USED IN THIS DOCUMENT WITH A VERY SPECIFIC MEANING 
INTENDED. SEVERAL OTHER WORDS ARE ALSO USED WITH 
SPECIFIC MEANINGS IN MIND. IN AN ATTEMPT TU AVOID 
SFMANTIC CONFUSIUN* THESE WURDS ARL HEREBY DEFINED* 



AUDIT 



RECOVERY 



RESTART 



RECONSTRUCTION 



RESTORATION 



WRITING A TRAIL OF CHANCES TO THE DATA 
BASE ON A SECONDARY STORAGE MEDIUM. 

RESTORATION OF INTEGRITY TO THE FILES 
OF THE UATA BASE SO THAT THEY ARE NOT 
LtFT IN A STATE SUCH THAT ANY 
OPERATION UN 1HEM IS PARTIALLY 
COMPLETE. RECOVERY HAY BE NEEDED 
AFTER A HALT/LOAD OR IF THE DATA BASE 
MONITOR IS DS-EU. 

GETTING THt APPLICATION PROGRAMS 
RUNNING AGAIN AT THE PUINT TO WHICH 
THE DATA BASE HAS BEEN RE<-OVFRFD. 

USING THE AUDIT IRAK AND A BACKUP 
DUMP TO RECONSTRUCT A PORTION UF THE 
DATA BASE* 

USING A GOOD COPY OF A DUPLICATED DATA 
BASE FILE TU RESTURE THE BAD COPY. 



AUDIT* RECOVERY* RESTART* RECONSTRUCTION AND RESTORATION 
ARE PRUVIDED FOR DM6700. THESL FEATURES ARE DESCRIBED IN 
THE FOLLOWING SECTIONS. 

AUDIT 



1*1 



AUDIT IS BY DATA BASE AND NOT BY PROGRAM. THE DECISION 
OF WHEIHER TO AUDIT OR NOT AND WHAT THE PARAMETERS OF THE 
AUUIT ARE TU HE ARE SPECIFIED IN THE SDL/ IN IT I AL !'*£ RUN. 
THE AUUH STATEMENT SYNTAX IS AS FOLLOWS. 

SYN1 AX 
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<AUOIT STATEMENT II* <AU0IT T YPE><ON-LIST> J / 

<AUOIT TYPE>$OFF-LIST>> 
<AUt)IT TYPE> H« AUDIT / AUDITUNLY 
<0FF-LIST> II" OFF / NONE 
<ON-LIST> II* <OPTIONAL PARAMETER UST>/ 

ON <0PTIUNAL PARAMETER LIST> 
<0PTI0NAL PARAMETER LI5T> "l •■ <EMPT Y>/<PARAMETER>/ 

<PARAMETER LISTXOPTlUNAL COMMA><PARAMETER> 
OPTIONAL COMMA> II* . / <EMPTY> 
<PAHAMETER> II* <0EVICE SPECIF 1CAT iUN> / 

<FILFSIZE SP£CIFICaTION> / 
<AUDIT SERIAL SPtClF ICATION> / 
<IMAGES SPECU ICATIUN> / 
<CONTROL CYCLES SPEC IF ICAT IUN> / 
<PACKNAME SPECIFICATION 
<OEVlCE SPEC1FKATI0N> II* DEVICE * <AUDIT MEDIUM> 
<PACK NAME SPECIFICATIONS II* PACKNAMf « <PAtK NAME> 
<AUOIT MEDIUM> II* DISK / DISKPACK / TAPE7 / 

TAPE9 / PETAPE 
<FILESI2E SPEClFICATiriN> II* AREAS « <INTEGER> / 

AREASIZE * <INTEGER>/ 
F1LESI2E • <INTEGER> 
<AUDIT SERIAL SPEC IFICAT 10n> U* SERIAL ■ <INTEGER> 
<IMAGES SPECIFKATI0N> II* BEFOREIMAGES 
<C0NTROL CYCLES SPECIFlCATlON> II* CUNTRQLC YCLES * 

<lNTEGER> 

EXAMPkES 

AUDIT) 

AUDIT DEV1CE*0ISK» ARFAS*l00# AREASIZE«lO0O# SERIAL*1> 

C0NTR0LCYCLES*10I 
AUDIT OFF* * 

AUDITONLY DE V ICE«D ISKPACK » BEFORE I MAGES » FlLESlZF*1000l 



2.2. 



SEMANTICS 
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IF THE <AUDIT TYPE> IS AUUITONLY RATHER THAN AUDIT, THE 
AUDIT MAY BE TURNED ON OR OFF WITHOUT CAUSING 
INITIALIZATION OF THE DATA BASE FILES. 

THE DEFAULT VALUES OF THE AUDIT PARAMETERS ARE SHOWN IN 
THE SECOND EXAMPLE — THE FIRST TWO EXAMPLFS ARE 
EQUIVALENT. 

THE AUDIT TRAIL MAY BE WRITTEN TO ANY OF THE DEVICES 
LISTED* AND RECOVERY MAY BL ACCOMPLISHED FROM ANY OF 
THESE DEVICES. 

AS FAR AS THE MCP FILE SYSTEM IS CONCERNED* THE AUDIT 
TRAIL FILE IS ONE RECORD PER BLOCK WITH A RECORD SIZE OF 
30 WOKDS. THIS CANNOT CURRENTLY BE VARIED. THE DATA 

MANAGEMENET SYSTEM nuES ITS OWN BLUCKlNG AND UNBLOCKING 
OF THt AUDIT FILE. FOR HURPUSES OF COMPUTING THE AUDIT 
FILE SIZE. A RECORD SIZE OF 30 WORDS IS USEDi IF THE 
FILESIZE FORM IS USED. AREAS AND AREASIZE ARE COMPUTED SO 
THAT AREAS*AKEASIZE«FILESIZE AND AHEASI ZE«10*ARE AS. 

WHEN AN AUDIT FILE BFCOMES FULL, IT IS LOCKED. AND A NEW 
FILE WITH THE NEXT HIGHER SERIAk NUMBER IS CREATED AND 
USED AUTOMATICALLY. THE AUDIT FILE NAMES AREt 

<DATA BASE NAME>/AUDITNNNN 

WHERE NNNN IS THE FOUR DECIMAL DIGIT AUDIT SERIAL NUMBER. 

"<*V99 rt IS FOLLOWED BY "0000°. THE AUDIT StRIAL PAHAMETER 
SPECIFIES WHAT THE STARTING AUDIT SERIAL NUMBER WILL BE. 

AFTER IMAGES OF ALTERED DATA AND STRUCTURE INFORMATION 
ARE ALWAYS WRITTEN TO THE AUDIT TRAIL. AT PRESENT, ONLY 
THE AFTER IMAGES ARF USED FDR KECQVEHY AND RECONSTRUCTION. 
AS AN OPTIUN, BEFORE IMAGES MAY ALSO BE INCLUDED IN THE 
AUDIT TRAIL. THESE WILL BE IGNORED BY RECOVERY AND 

RECONSTRUCTION, BUT THE USER MIGHT BE ABLE TO USE THEM TO 
BACK UP HIS DATA BASE* BACKING UP OF THE DATA BASE IS 
NOT SUPPUR1EU BY UM6700 AT THIS TIME, THt POINT IN TIME 
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2.3. 



AT WHICH THE MONITOR IS FIRED UP IS A CLEAN POINT FOR THE 
DATA BASE AND KILL BE MARKED ON THE AUDIT TRAIL* 

THE CONTROL CYCLES SPECIFICATION MAY BE USED TO CONTROL 
AN IMPORTANT TRADE-OFF IN 1HE UPERATION OF THE AUDIT. 
THE DATA BASE MONITOR PERIODICALLY EXAMINES THF STATE OF 
THE REQUEST HANDLERS AND THE QUEUE OF REQUESTS. ON EVERY 
NTH SCAN (AS SPECIFIED BY CONTRQLC YCLES ■ <INTEGER>) AN 
AUDIT CONTROL RECORD IS WRITTEN TO THE AUDIT TRAIL. THIS 
INVOLVES FORCING A WRITE ON ALL BUFFERS WHICH CAN BE 
WRITTEN TO DISK AT THAT TIME. THE PuRPUSE OF THE AUDIT 
CONTROL RECORD IS TU LIMIT RECOVERY EFFORT — AT LEAST 
ONE AUDIT CONTROL RECORD MUST BE READ BY THE RECOVERY 
PRUGRAM. THUS. THE MORE FREQUENTLY AUDIT CONTROL RECOROS 
ARE WRITTEN* THE SMALLER ThE RECOVERY EFFORT* BUT THE 
GREATER THE OVERHEAD DURING NURMAL OPERATION OF THE DATA 
BASE* 

THE TIME PERIOD BETWEEN SCANS IS SPECIFIED BY A NEW 
MONITOR LIMIT. THE SYNTAX IS t 

CYCLETIME * <INTEGER> 

WHERE THE UNITS OF <INTEGER> ARE SECONDS. THE CURRENT 

DFFAULT CYCLE TIME IS THREE SECONDS* (MONITOR LIMITS ARE 

SPECIFIED IN THE LIMITS OR LiMITSONLY STATEMENT IN SDL/ 
INITIALIZE.) 

PRAGMATICS 



THE AUDIT TRAIL IS NOT PARTITIONED. (PART I TIONINS COULD 
SPEED RECONSTRUCTION.) NOR IS IT POSSIBLE TO AUDIT ONLY 
SELECTED PARTS OF THE DATA BASE. PURE RETRIEVAL REUUESTS 
ARE NOT AUDITED " ONLY CHANGES TO THE DATA BASE. 

THE END OF FILE POINTER OF THE AUDIT TRAIL MUST NOT BE 
LOST. THEREFORE* THE AUDIT TRAIL IS PROTECTED. FOR DISK 
OR DISK PACK THIS MFANS THAT THE DISK IS SMEARED WITH A 
SPECIAL PATTERN AND THEN OVERWRITTEN. THE END OF FILE 
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RECORD CAN THUS BE FOUND BY PERFORMING A BINARY SEARCH. 
FOR TAPE PROTECTION MEANS 1HAT WHILE THE MCP IS COMING UP 
AFTER A HALT/LUAU. IT WRITES TAPE MARKS TO THE AUDIT TAPE. 

THE AUDIT TRAIL IS READ AND WRITTEN WITH DIRECT I/U. AS 
MUCH BLOCKING IS DONE AS POSSIBLE* BUT THE LOGIC OF THE 
AUDIT REQUIRES A WRITt TO BE COMPLETED AT CERTAIN POINTS 
BEFORE FURTHER AUDITING CAN PROCEED. ONE OF THESE POINTS 
IS AN EXECUllON OF END-TRANSACTION BY A COBOL PROGRAM, 
THUS, VERY SMALL TRANSACTIONS (E.G.. ONE MODIFY/STORE 
PAIR) WILL RESULT IN SMALL BLOCKS ON THE AUDIT TRAIL* 
TRANSACTIONS CANNOT BE ARBITRARILY LARGE* HOWEVER* 
BECAUSE ONLY A FIXED NUMBER OF BUFFERS ARE AVAILABLE* 
ONCE THESE ARE ALL LOCKED, A SYSTEM OVERLOAD WILL OCCUR. 
IT IS THE USERS RESPONSIBILITY TO DEURMINE BOTH A 
HFASONABLE TRANSACTION SIZE AND THE MAXIMUM NUMBER OF 
BUFFERS AVAILABLE 10 THE MONITOR. 

UNLIKE OTHER DATA BASE FILES* THE PACKNAME OF THE AUDIT 

FILE MAY BE DlFfERFNT THAN THE DATA BASE NAME. IN 

GENERAL* WHEN AODITING TO PACK* ONE SHOULD AUDIT TO NAMED 

PACK (AS OPPOSED TO SYSTEM PACK) WHERE THE NAME IS 

DIFFERENT THAN THE DATA BASE NAME. THIS DECREASES THE 

PROBABILITY THAT DATA BASES FILES AND I HE AUDIT TRAIL 
WILL BOTH BE LOST. 

*•.<♦. AUDIT ARCHIVE 

•aaa aaaaa aaaaa m m 

THE DATE* TIME* SERIAL NUMBER AND PACKNAME OF EACH AODIT 
FILE ARE WRITTEN IN AN AODIT ARCHIVE WHEN THE AUDIT FILE 
IS CREATED* THE AUDIT ARCHIVE IS A PERMANENT DISK FILE 

NAMED 

OM/<DATA BASF NAME>/AUDI TARCHI VE . 

SYSTEM/DMPRINTIT MAY BE USED TU PRINT THE AUDIT ARCHIVE 
IN FOHMATTED OH UNFORMATTED FORM, 

WHEN AN AUDIT FILE IS NEEDED AS AN INPUT * ILE BY SYSTEM/ 
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DMNECOVER. ETC., KINO IS SE I TO ZERO AND PACKNAMF IS SET 
FROM THE AUDIT ARCHIVE* SETTING MND « WILL CAOSE THE 
SYSTEM TO SLARCH TAPES* DISK AND DiSKPACK FON THE FILE. 
AND "OUP FILE" WILL RFSULT IF MORE THAN ONL COPY IS FOUND. 
SETTING KIND » HAS SORE NON-UBVlUUS CONSEQUENCES* 

IF MORE THAN ONE AUDIT FILE IS MOUNTED ON TAPE DRIVES 
WHICH ARE ON-LINE. A "DUP FILE" WILL ALWAYS hESULT — FOR 
TAPES. THE DUP F ILF CUNDiTION bASED ONLY ON THE FIRST 
IDENTIFIED TO ALLEVIATE THIS. DMhEtDVEH. ETC. DISPLAYS 
THE NAME OF THE AODIT FILE THAT IT NEEDS BEFORE OPENING 
THE FILE. 

KINO ■ U WiLL CAUSfc ONLY ONE FAMILY OF PACKS TO BE 
SEARCHED (AS DETERMINED BY PAtKNAME). THUS. IF THE USER 
MOVES An AUDIT FILE TO A FAMILY OF PACKS WHOSE NAMt IS 
NOT EUUAL TO THE PACKNAME IN THE AUDIT ARCHIVE ENTRY, THE 
USER MUST CHANGE THE PaCKNAME IN THE AUDIT AHCHIVE ENTRY. 
OTHERWISE. II WILL NOT BE FOUND BY UMKFCOVFR. ETC. 
(NOTEI SINCE IT IS POSSIBLt TO AUDIT AND RECOVEH FROM 
TAPE. DISK, UR PACK. AODIT FILES NEED NOT NORMALLY BE 
MOVED.) 

OPERATOR INTERFACE 



CERTAIN ACCEPT MESSAGES MAY BE INPUT TO THE DATA BASE 
MONITOR FROM THE SPO AT ANY TIME. WHEN THE MONITOR MAKES 
ONE OF ITS PfRlOUlC SCANS. II WILL MAKE lHt APPROPRIATE 
RESPONSE IF AN ACCEPT MESSAGE WAS PREVIOUSLY INPUT FOR IT. 
(UNOER 11.4 PROGRAMS CAN TEST FOR THfc PRESENCE OF ACCEPT 
MESSAGES WITHOUT BEING SUSPENDED.) THE MIX NUMBER OF THE 
MONITOK (NUT THE JOB NUMBER UK THE MIX NUMBER OF ONE OF 
THE REQUEST HANDLERS) IS EN1ERED. FOLLOWED BY "AX", 
FOLLOWED (WITH NO INTERVENING BLANKS) BY ONE OF THE 
FOLLOWING MESSAGES. 



AS KILL CAUSE THE MONITOR TO DISPLAY THE CURRENT 
AUDIT SEHlAL NUMBER. 
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AH WILL CAUSE THE MONITOR TO OiSPLAY THE CURRENT 
AUDIT RECORD NUMBER. FOR DISK OR DISKPACKS 
THIS IS THF SEGMENT NUMbEH* AND FUR TAPE THIS 
IS THt BLOCK NUMBER. 

ca will cause the munitur to close the current 
audit mle and upen a new une. 

ALL UTHER MESSAGtS WILL CAUSE THE MONITOR TO DISPLAY 
"INVALID HEUUEST". 

i. RFCOVERY 



J.l. 



RECOVERY OF A OATA BASE IS ACCOMPLISHED BY RUNNING 
SYSTEM/DMRECOVER. THIS PROCEDURE iS CALLEU AUTOMATICALLY 
BY THE OATA BASE MONITOR WHEN NECESSARY. IT MAY ALSO BE 
RUN BY THE USER. ITS PARAMETER IS A STRING CONSISTING OF 
THt NAME OE THE SOL FILE (OR THE FIRST COPY* IF 
DUPLICATED) FOLLOWED BY A PERIUD. OMRECOVER RECOVERS THE 
OATA BASE* WRITES ALL NECESSARY RESTART FILES TU DISK. 
AND INDICATES ITS SUCCESSFUL CUMPLtTlON. IT ALSO KEEPS A 
LOG OF ANY I/O FRRORS IT ENCOUNTERS. 

PRAGMA! ICS 



THE MONITOR TURNS A BIT On (THE DATA BASE IN USE bIT) IN 
RECORD ZERO OF THF SDL FILE bEFORE IT STARTS PROCESSING 
REQUES1S TU THE UAIA BASE. IT TORNS THIS bIT OFF WHEN IT 
GOES TO SUCCESSEUL Enj. THUS. WhEN THE MONITOR CUMES UP 
AND NOTICES THAT THIS BIT IS ALREADY ON* IT KNOWS THAT 
EITHER A HALT/LOAD OCCURRED UR IT WAS DS-ED. IN EITHER 
CASE* RECOVERY IS NECESSARY* SL IT RONS DMRECOVER. IT 
THEN hANuS IN A "NO MLE" FOR FILE DM/<DATA BASE NAME>/ 
RECOVERED. DMRECOVER RECOVERS THE DATA BASE* WRITES THE 
RESTART FILES TO DISK, AND LOGS ANY I/O ERRORS IT 
ENCOUNTERS IN A DUPLICATED FILL NAMED DM/<DATA BASE 
NAME>/"REC0VERHS#1" AND DM/<DATA BASE NAME>/"REC0VERHS#2" » 
SOME I/O ERRORS RESULT IN UNSUCCESSFUL RECOVERY. IF 
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RECOVERY IS SUCCESSFUL* IT TURNS OFF THE DATA BASF IN USE 
BIT AND CREATES AN EMPTY HLt UM/<UAlA BASE NAME>/ 
RECOVERED. THE CKFAT10N OF THAT MLE CAUSES ThE MOMTOH 

TO RESUME PROCESSING. IF THE MONITOR IS DS-FO WHILE 

RECOVERY IS RUNNING* A CRITICAL BLUCK EXIT WILL RESULT IN 
RECOVERY. IF RECUVERY IS DS-LD* THERE WILL BE NO EFFECT 

ON THE MONITOR (I.E.* THE MONITOR WILL STILL HANG IN THE 
"NO FILE" UNTIL RlCUVERY IS SUCCESSFUL). I* RECOVERY IS 
OS-ED. IT MAY BE POSSIBLE TU CORRECT THE SITUATION ANO 
RUN IT AGAIN SUCCESSFULLY. 

NO MORE THAN ONE CflPY OE DMRECUVER WILL RUN AT A TIME. 
THIS SITUATION IS DETECTEU BY TESTING THF POPULATION 
ATTRIBUTE ON THE SnL FILE. U IT IS GREATER THAN ONE* 
RECOVERY GOES TO EflJ. THUS* IE Two COPIES OF RECOVERY 
SOMEHOW START UP AT THE SAME TIME* BOTH MAY GO GO EOJ. 
IN THIS CASE* IT WILL HAVE TO BE RUN AGAIN* ALONE. 

THE RECOVERY ERRORS FILE HAS THREE WORD RtCOROS WITH THE 
FOLLOWING FORMAT. 



WORD 

a mm a a 

47120 
2712b 



STRUCTURE NUMBER OF THE E ILE IN ERROR 
RECORD IN ERROR 



WORD 1 

■ «fiM m 

16(03 



13101 



12101 
11112 



TYPE OF FILE IN ERROR! 

- DATA FILE (OR INDEX TABLE) 

1 - SDL FILE 

2 - AUDIT TRAIL 

3 - UNUSED 

H - RECUVERY ERRORS FILE ITSELF 

READ OR WRITE ERKOR 

- READ 

1 - WRITE 

COPY NUMBER IN ERROR (0 E 1RST . 1 SECOND) 
BLOCKFACTOR Of FILE iN ERROR 
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? AG 



GE 60 



WQkU 2 

• ** * • W 



STRATEGY 



I-U RESULT DESCRIPTOR -- THE HARDWARE 
KESULT DESCRIPTOR IF THE AUDIT TRAILI 
OTHERWISE* THE SOFTWARE RESULT 
DESCRIPTOR 



RFCOVERY HEADS THE AUDIT TRAIL bACKWARDS F KOM THE CURRENT 
END AS FAR AS NECESSARY. 

DATA NECURDS 

RECORDS MAY ONLY BE MPOIFIED BY ONE TRANSACTION AT A TIME. 
RECORDS ARE NUT UNLOCKED UNTIL AFTER END-TRANSACTION HAS 
BEEN EXECUTED AND AUDITED. RECORDS MAY NUl BE WRITTEN TO 
DISK UNTIL END-TRANSACTION HAS BEEN EXECUTED AND AUDITED* 
THUS* RFCOVERY ASSUMES THAT NO PARTIAL TRANSACTIONS ARE 
REFLECTED ON THE DISK. THE JOB OF RECOVERY FUR OATA 
RECORDS IS TO INSURF THAT ALL DISK WRITES FOR COMPLETED 
TRANSACTIONS HAVE OCCURRED bY WRITING ALL SUCH RECORDS 
USING THt AFTER IMAGFS IN THE AUDIT TRAIL. IF THE WRITE 
HAU ALREADY OCCURRED. A SECOND WRITE WILL DO NO HARM. 
RECQVEHY MUST REMEMBFR ALL THt RECORDS IT HAS WRITTEN SO 
IT WONT RtwRlTE THEM WITH AN EARLIER VERSION. 

STRUCTUKE INFORMATION 



TREATING THE LOCKING OF STRUCTURES THE SAME AS THE 
LOCKING UF DATA RECORDS WOULD RESULT IN SET LEVEL 
LOCKOUT* SO THIS IS NOT DONE. INSTEAD* STRUCTURES ARE 
LOCKED ONLY WHILE REING CHANGED* THIS CHANGES THE 
RECOVERY STRATEGY. STRUCTURES ARE "RECOVEHED" WHEN FIRST 
ENCOUNTERED IN THE AUDIT TRaIL. STRUCTURE CHANGES FOR 
THE LAST PARTIALLY COMPLETED TRANSACTIONS ARE UNDONE AS 
THEY AhE ENCOUNTERED TN THE AUUIT TRAIL. 

TEHMINAT IUN 
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THE PURPOSE UF CONTROL RECURDS IS 10 LIMIT RECOVERY 
EFFORT. CONTROL RECORDS ARE WR1TIEN PERIODICALLY BY THE 
MONITOR. AT ThlS TIME THE MONITORS BUFFERS ARE FLUSHED. 
THUSt RECORDS AND STRUCTURES ThAT CUULD NUT BE FLUSHED 
BECAUSE THEY WERE LOCKED ARE L1STEU IN THE CONTROL RECORD. 
THE CURRENTLY ACTIVF TRANSAC110N IDS ARE ALSO LISTED IN 
THE CQNTHUL RECORD. 

AT LEAST ONE CONTROL RECURL MUST bE SEEN BY RECOVERY 
(UNLESS THE MUN IT OH-F TREO-UP RECORD IS ENCUUNTERFD > . 

ENU-TRANSACTIUN OR ROJ (ACTUALLY* bOJ IS THE FIRST OPEN 
OF THE TRANSACTION) MUST bt ENCOUNTERED FOR ALL USER 
TRANSACTIONS ACTIVF DURING AND AFTER THE LAST CONTROL 
RECORD (OR SINCE THf MQNI TOR-F 1RED-UP RECORD). THE FIRST 
TIME END-TRANSACTION IS SEEN FUR A USER TRANSACTION* A 
RESTART FILE IS CREATED ON DISK. IF NO END-TRANSACTION 
IS SEEN. BOJ WILL BE SEEN. IT IS ASSUMED THAT ALL USERS 
EXECUTE END-TRANSACTION PER I UD ICmLL Y . iF THIS IS NOT 
TRUE* RECOVERY MAY HAVE TO READ A LARGE PURTION OF THE 
AUDIT TRAIL TO TERMINATE. 

ALL STRUCTURES AND DATA RECURDS LISTED IN THE LAST 
CONTROL RECORD MUST BE ACCUUNTED FOR. THEY MUST BE 
ENCOUNTERED IN THE AUDIT TRAIL UR MISSING FROM AN EARLIER 
CONTROL RECORD TO INSURE THAI THEY GET WRITTEN UR WERE 
WRITTEN TO DISK. 

THE END OF FILE POINTERS FOR ALL THE DATA F RES MUST BE 
ESTABLISHED USING THE HIGHEST UPEN INFURMATIUN IN THE SDL 
STRUCTURE FILE. (THE END UF FILE OF THE SDL FILE IS 
CONSTANT* AND THE AUDIT TRAIL IS PROTECTED.) TO 
ESTABLISH THEM. A bLUCK OF ALL ZEROES IS WRITTEN AS THE 
NEXT BLOCK AFTER THE LAST BLOCK CONTAINING DATA. 

RESTART 



«... 



INTRODUCTION 



UU284 DM6700 - DESIGN UF RECOVERY FOR 0*6700 



PAGE 82 
- 04-03-73 



<».*. 



TRAN5ACTIUNS HAVE BEEN INTRODUCED 10 PROVIDE CLEAN POINTS 
FUK RESTARTING DATA MANAGEMENT JOBS. THE UNDERLYING 
ASSUMPTION IS THAT PROGRAMS ARL CYCLIC IN NATORE. AND 
THAT AT I ML BEGINNING OF A LOOR. ONLY A PEW IMPORTANT 
VARlAtiLES ARE NECESSARY TO PROViDF SUFFlCUNT INFORMATION 
TO RESTART ThE PROGRAM. THESE VARlAbLES WILL TYPICALLY 
BF FILE POSITIONS. A RtSTARTAbLL UATA MANAGEMENT JOB 
WILL BE PASStO TWO PIECES OF INFORMATION UPON RESTARTI 
(1) ThE FACT THAT IS HA5 BEEN RESTARTED ANU (2) EXACTLY 
THUSE VARIABLES WHICH THE RROGKAMMtR HAS DECIDED ARE 
SUFFICIENT TO GET THE PROGRAM RESTARTED. (HE DETAILS ARE 
DISCUSSED IN WHAT FOLLOWS. 

TRANSACTIUNS 



<*.<!. 1 



A TRANSACTION IS A SEQUENCE UF DATA bASE OPERATIONS 
PERFORMED ON ONE OR MORE DATA MANAGEMENT COBOL WORKARFAS. 
A TRANSACTION HAS AN ID UNIQUE FROM ALL OTHER CURRENTLY 
ACTIVE TRANSACTIONS. THE TRANSACTION ID SERVFS TO LINK 
RFCORUS IN Tnfr AOOIT TRAIL ANU TO IDENTIFY THE LOCKER OF 
RECORDS. ALL UATA RECORDS AND INDEX TABLES MODIFIED BY A 
TRANSACTION AHF LOCKED DOT F RUM OTHER TRANSACTIONS ONTIL 
THE TRANSACTION IS COMPLETED. 1HLY ARE ALSO MARKED SO 
THAT THEY CANNOT HE hRlTTEN TO DISK UNTIL THt TRANSACTION 
IS COMPLETED. THERF ARfc TWO TYPES QF TRANSACTIONS. 
DEFAULT (RANSACIIUNS AND USER SPtCIFlEO TRANSACTIONS. 
ANY PARTICULAR COBOL PRUGRAM USES ONE OR THE OTHER. BOT 
NOT BOTH. 

DEFAULT TRANSACTIONS 



DM&700 HAS BEEN USING DEFAULT TRANSACTIONS. CURRENT 
PROGRAMS MAY bE RUN WITHOUT CHANGE. ROwEVE«» TO PROVIDE 
RESTARTAB1LITY, IT WILL BE NECESSARY TO CHANGE TO OSER 
TRANSACTIUNS. DEFAULT TRANSACTIONS ARE SINGLE DATA BASE 
OPERATIONS WIIH THE EXCEPTION OF THE FOLLOWING PAIRS OF 
OPERATIONS (ON THE SAME WORKAHEA) -- MODIF Y/STORE » 
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4.2.2. 



CREATE/STORE. MODIFY/FREE ANU CREATE/FREE. THESE PAIRS 
OF OPERATIONS ARE CONSIDERED SlNGLt DEFAULT TRANSACTIONS. 

THE TYPE OF TRANSACTIONS A PHUGHAM IS USING MAY BE 
DETERMINED BY INSPECTING THE F ILL CONTROL PART OF THE 
INPUT-OUTPUT SECTIUN. IF NO FILE SELECTED IS ASSIGNED TO 
DATA-BASE-RESlART, THEN THE PROGRAM IS USING DEFAULT 
TRANSACTIONS. IN THIS CASE* THE COBOL VERBS END- 
TRANSACTION AND ABORT-TRANSACTION WILL GIVE SYNTAX 
ERRORS, AND EACH SFT THE PROGttAM InVUKLS WILL BE 
ALLOCATED A UNIQUE TRANSACTION ID WHEN THE SET IS OPENED. 

USER TRANSACTIONS 



IF A FILE IS ASSIGNED TU UAT A-BASE-RESTART t THEN THE 
COBOL PROGRAM IS USING USER SPECIFIED TRANSACTIONS. (AT 
MOST ONE FILE MAY BE ASSIGNED IU DATA-BASE-RESTART * ) ALL 
SETS INVUKED BY THF PROGRAM ARE GIVEN THE SAME 
TRANSACTION ID WHEN OPENEU. ALL OPERATIONS PERFORMED ON 
THE WORKAREAS FOR THESE SETS ARE PART OF THE SAME 
TRANSACTION. UNTIL THE TRANSACTION IS TERMINATED BY 
EXECUTING END-TRANSACTION OR ABURT-TRANi>ACT ION. (THE 
PROGRAM MAY THEN INITIATE ANOTHER TRANSACTION.) THE 

prugram is Expected to execute end-transaction 

PERIODICALLY. IF IT DOES NOT. RECOVERY MAY TAKE MUCH 
LONGER THAN NECESSARY (SEE SECTIUN 3)* AND IF THE 
TRANSACTIUN MODIFIES TOO MANY RECORDS. A SYSTEM OVERLOAD 
(STATUS 102) WILL OCCUR ONCE ALL THE BUFFERS ARE LOCKED. 
IT IS THE PROGRAMMERS RESPUNS I b IL IT Y TO KEEP THE 
TRANSACTIONS SIZE REASONABLE. 

IF A SET IS PASSED AS A PARAMETER* ALL THE OPERATIONS ON 
IT BY OTHER PROGRAMS OR PROCEDURES ARE CONSIDERED AS PART 
OF THE TRANSACTION OF THE PROGRAM WHERE THF SET IS 
LOCALLY INVOKED. THAT IS. IF A SET IS INVOKED LOCALLY 
(AS OPPOSED TO BEING INVOKED bY REFERENCE) BY A PROGRAM, 
RASSInG IT AS A PAHAMF1ER DOES NOT CHANGE 1T& TRANSACTION 
ID. 
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4.2.2.1. PURPOSE OF THE RtSTAHT FILE 

THE PURPOSE UP THE RESTART FILE IS TO HOLD ALL THE 
INFORMATION NECESSARY TO RESTART THE PROGRAM. FILE 
POSITIONS* LOOP COUNTERS, STATE VARIABLES* DATA 
MANAGEMENT KEYS OF RETRIEVAL, ETC. MAY RESIDE IN THE 
RECORD DESCRIPTION OF THE RESTART FILE, WHEN END- 
TRANSACTION IS EXECUTED* THE RECORD AREA OF THE RESTART 
FILE (HEREAFTER REFERRED TO AS THE RtSJART AREA) IS 
WRITTEN ON THE AUDIT TRAIL (WHETHER THE RESTART FILE IS 
OPEN OR NOT). THE DATA MANAGEMENT SYS1EM WILL INSURE 
THAT ONLY COMPLETE TRANSACTIONS ARE PERFORMED ON THE DATA 
BASE* THE INTENT IS THAT THE END OF A TKANSACTION BE A 
CLEAN POINT FOR THE PROGRAM. 

THE RESTART FILE SHOOED NOT NORMALLY BE OPENED OR WRITTEN 
BY THE USER. IT NFED ONLY bE OPENED AND READ WHEN THE 
PROGRAM IS RESTARTED. OPENING IT UR WRITING IT* HOWEVER* 
WILL NOT INTERFERE WITH ITS USE BY THE DATA MANAGEMENT 
SYSTEM, 

4.2.2.2, END-TRANSACTION 



THE SYNTAX IS I 
END-TRANSACTION ON EXCEPTION 

<STATEMFNT> [ELSE <STATEMENT>] 

THIS STATEMENT IS ALWAYS EXECUTED SYNCHRONOUSLY* 

THE EXCEPTIONS ARE RFTURNED IN TRANSACTION-STATUS (WHICH 
IS A COMP-1 EXPRESSION) AND AREl 

1 SET NOT OPEN. IF NONE OF THE WORKAHEAS FOR THE 
TRANSACTION ARF CURRENTLY UPEN* THE TRANSACTION 
ID IS NOT ALLOCATED AND END-TRANSACTION WILL 
NOT BE PERFORMED. 

16 OPERATIONS IN PROGRESS. ONE OR MORE 

(ASYNCHRONOUS) OPERATIONS ON ONE OR MORE OF THE 
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WORKAREAS UF THE THANSAC1IUN ARE STILL IN 
PROGRESS. END-TRANSACTION WILL NUT BE EXFCUTED 
BECAUSE ThE PHOUHAM IS NUT AT A CLEAN POINT. 

\T ONE OR MORE WORKAREAS OF THE TRANSACTION ARE IN 
THE MODIFY UP CRE.ATE STATE. END'THANSAC f ION 
WILL NUT BE FXFCUTED BECAUSE THE PROGRAM IS N(]T 
AT A CLEAN POINT* 

IB ONE OR MORE OF THE DATA BASE MUNITURS INVOLVED 
IN THE TRANSACTION HAVE bEEN US-ED* 

NEW UPERATIONS WILL BE INHIBITED UN ANY uF THE WORKAREAS 
INVOLVED IN THE TRANSACTION (NEW UPER«TlONS MIGHT 
OTHERWISE BE INITIATED IF MORE THAN ONE STACK IS INVOLVED 
IN THE TRANSACTION) WHILE END- 1 RANSACT iON IS BEING 
PERFORMED. 



4«i>.2.3. ABORT-TRANSACTION 



TRANSACTIONS MAY BE ABORTED wHElHEK AUDIT IS ON OR OFF* 
THE MONITOR UOES AN IMPLICIT ABUHT-TRANSAC T ION WHEN THE ' 
LAST SET INVOLVED IN A TRANSACTION IS CLQSEU. THUS. THE 
DATA BASE IS LE* T AT THE END UF THt LAST COMPLETE 
TRANSACTION FOR THAT JUB. 

UNLIKE END-TRANSACTION* ABURT-TR ANSACT I ON WAITS FOR 
COMPLETION OF OPEKATIUNS CURRENTLY IN PROGRESS. AND DOES 
IMPLICIT FREES ON WORKAREAS IN THE MUDlFY UR CHEATE STATE. 
LIKE END-TRANSACTION* IT IS ALWAYS EXECUTED SYNCHRUNQUSLY . 
THE SYNTAX IS 

ABORT-TRANSACTION UN EXCtPTlUN 

<STA1EMENT> IELSL <STAUMENT>] 

AS IS TRUE FOH END-TRANSACTION* NEW UPEMllONS FOR THE 
TRANSACTION ARE 1NH1BITEU ANU THE STATUS IS RETURNED IN 
TRANSACTIUN-STATUS. THE VALUES 1 AND 16 APPLY AND MEAN 
THE SAME AS FUK END-TR ANSAC T ION . 
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ARURWRANSAC I ION UOES NUT UESJR11T THE USERS CURRENTS BUT 
GUARANlEFS THAT NC1NF Of THt. CHANUF ii THt TRANSACTION HAS 
MAUE AKE KEFLtCTED IN T Ht LATA HASL. 

<♦.<!. U.4, SUMMARY UF STATUS VALUES 



M.i. 



THE STATUS VALUES KELFVANT TO USER TRANSACTIONS ARE> 

i NU SE1 OE THE TRANSACTION IS UPLN AT END- 
TRANSACTION UN AHORT-1KANSAC1 I0N» 

16 OPERATIONS IN PROGRESS AT END-TRANS ACT 1 ON . 

17 ONE UH MORE WORKARMS IN MODUY OR CREATE 
STATE AT END-TRANSaCUUN. 

16 ONE OR MURE DATA BASE MUNlFORS ARE OS-ED. 

19 ON AN OPEN. MORE THAN 62 RESTART AREAS WOULD 
bt IN USE bY A SINGLE STACK. 

?J ATTEMPT TU U1ILIZE UStR SPECIF1EU 

TRANSACTIONS. BUl THIS VERSION OE THF DATA 
HASfc MUNITOR CAN HANDLt ONLY UEFAULT 
TRANSACTIONS. 

102 TUU MANY HUFEFRS REUUlKtD. 

RESTART CONVENTIONS 



THt. PHILUSUPHY UF DATA MANAGEMtNT RESTART IS THAT JOB AND 
TASK RESTART ArtE THt RESPONSIBILITY OF THE WORKFLOW 
MANAGEMENT SYSTEM CWFM). ANU THAT DATA MANAGEMENT RESTART 
SHUULD BE INTEGRATED TNTO THIS SYSTEM, 

THt current workhow management philosophy is that jobs 

ARE RULLEO OUT AT CLEAN POINTS (I.E.* NO TASKS ARE 
CURRENTLY RUNNING) ANU RESTARTED AT THE LAST ROLLOUT 
POINT. THAT IS. WFM PRUVIUES JOB RESTART AND THE USER 
PROGRAMS HIS TASK RESTART WITHIN HIS JOB IN THE WORKFLOW 
LANGUAGE (WED. THIS IS ACCOMPLISHED FOR UATA MANAGEMENT 
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dY USING wFL TO SET THE TASKVALUE OF 1HE UStH PKOGHAM SO 
THAT IT CAN HND ITS RESTART FiLF. 

RESTART FILE 



4.4.1.1. NAME 

• KSaiaaaa m m m m 

THE NAME Of THE HESTARl ULE 1 S » BY CONVENlION. 

OMHESTART/<DATA BASE NAHE>/<IN1ERNAL FILE NAHE>/ 
<tl DECIMAL OlGI1S> 

WHERE THE 11 DECIMAL DIGIT HELD IS COMPOSED OF THE 
FOLLOWING THREE SUbFlFLDSI 

<<♦ DIGIT 10 F1ELUX4 DIGIT JOB#><J DIGH LT#> 

THE FOUR l)li»IT ID FIELD IS ZERO MJR HLFS PRODUCED RY 
DMRFCOVER. THE THRFE DIGIT LT# IS THE THRFE DIGIT 
LOGICAL TASK NUMBER OF THE TASK WITHIN THE JOB. THE USER 
ASSIGNS THIS NUMBER [H 1HE TAiK HIMSELF, bY USING WFL TO 
SEf THE TASKVALUE OF HIS TASK AS DESCRIBED IN SECTION <*.3. 
2. 11 SHOULD bE UNIQUE FOR EACh TASK OF THE JOB AND 
SHOULD BE IN iHE RANGF ONE TO 255 INCLUSIVE. 

ALL NECESSARY RESTART MLES ARt RRUDUCED AUTOMATICALLY BY 
DMHFCOVER WHEN IT IS RUN. HOWEVER. IN THE CASF WHERE A 
DATA MANAGEMENT JOB GETS US-ED FUR ANY REASON BOT THE 
MONITOR GOES TO NORMAL EUJ# DMRECOVF.R WILL NOT AND MUST 
NOT RE RUN* IN 1 HIS CASE* THE RUG MUST MHST BF FIXED. 
THEN THE JUB MUST BE RES0BM1T1EU UTILIZING THE DELAYED 
RESTART CONVENTIONS. THE U&ER MUST ObTAlN HIS RESTART 
FILE BY RUNNING SYSTEM/GE TuMREST ARl F 1 LE . 

'♦•J. 1.2. SYSTEM-GFTDMNESTARTFIlE 



THE INPUT FILE TO THIS PROGRAM IS IN A FlLf CALLED CARD. 
INPUT IS FREE FORM IN COLOMNS 1-72. THE iN^UT IS A LIST 
OF KEYWORD AND VALUF PAIRS. COMMAS MUST NOT BE USED TO 
SEPARATE THE PARAMETER PAIRS. BLANKS ARE USED AS THE 
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DELIMITER INSTEAD. THE FORM UK tACM PAIR IS <KFYwORO>« 
<VALUE>* ThL EQUAL SIGN MUM bE PRESENT, THE KEYWORD 
PAY Ht AHbHEVlATED UK MISSPELLED OR CUNTAIN IMBEUOFD 
BLANKS U* SPECIAL CHARACTERS AS LONG AS THE FIRST FEW 
CHARACTERS AKE CURRFCT. 1 HE SYNTAX Uf THF VALUE* 
HOWEVER. MUSI bE EXACTLY CURRECT. FUR EXAMPLE* IF FOUR 
OIUITS ARE HEwUlREu. THEN LEADING HEROES* IF ANY, MUST BE 
PUNCHED. THE PARAMMERS MAY APPEAR IN ANY ORDER. THE 
PARAMFTERS ARE AS FOLLUWSt 
PARAME1ER NAME VALUE REQUIRED 



DATABASE NAME 

INFERNAL F ILE NAME 

MIX NUMbER 

Jtib NUMBER 

DATE 

JULIAN DAIE 

TIME 

AUUIT SERIAL NUMbEH 

ID 



■ <DATA UAbE NmME> 

s <INTNAME UK RESTART t- RE> 

* <4 D1GITS> 
» <<l DIGITS> 

■ MM/DD/YY 

* YYDDD 

a HHIMMISS 

s <H DI6ITS> 

* <t DIG1TS> 



YES 
YES 
YES 
YES 

* 
* 

* 
NO 



(O FITHER THE AUDI) SERIAL NUMBER IS SPECIFIED OR THE 
DATE AND 1IME ARE bUT NUT bOTH. IF THE DATE AND T1MF ARE 
SPECIFlFD* THE AUDIT ARCHIVE IS USED TU DETERMINE THE 
AUUIT SERIAL NUMbER. IN ANY CA5t# THE AUDIT ARCHIVE IS 
USED TU FIND THF PACK NAME. IF ANY. 

NEITHER THE DATA BASE NAME NOR THE INTERNAL FILE NAME 
SHUULD bE TERMINATED HITH A PERlOU, THE DATE AND TIME 
SPUULD BE THUSE AT THF END OF THE TASK. THE ID FIELO» IF 
PRESENT. WILL bE PLACED IN THE ID FIELD OF THE RESTART 
FILE NAME. THE DEFAULT VALUE UF ID IS Z£RU. 

EXAMPLE 1 



DATA BASE NAME » MYUfi MIX-NUMbER * 0032 

JUB-NUMBER a 0031 

T1MF a 00801100 DATE = 01/02/73 
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INTERNAL FILE NAME ■ MYRESTAHTF ILL 
EXAMPLE 2 



DATA ■ TESTUB AUDIT ■ 0003 JOB 
ID « 7777 INTNAMF » RSF 



1234 MIX 



1236 



<U3.2« 



EXAMPLE ONE MAY PRODUCE A FILL NAMED UMHESTART/MYDB/ 
MYNESTARTFILE/Q0000031LLL, IF SUCCESSFUL, WHERE LLL WAS 
THE LOGICAL TASK NUMBER OF THE TASK, (SEE NEXT SECTION.) 

EXAMPLE TWO MAY PRODUCE A FILE NAMED DMHESTART/TESTDB/ 
HSF/7777123«LLL» WHERE LLL WAS THE LOGICAL TASK NUMBER. 

ALL INPUT NEEDED BY GFTDMRESTARTF ILE MAY BE OBTAINED FROM 
THE LISTING THE SYSTEM PRODUCES WHEN THE JUB IS RUN, WITH 
THE POSSIBLE EXCEPTIONS OF THE DATA BASE NAME AND THE 

INTERNAL FILE NAME. THESE MAY, OF COURSE, BE OBTAINED 
FROM A LISTING OF THE PROGRAM. 

GETOMRESTARTFILE WILL READ THE AUDIT FILE SPECIFIED BY 
THE AUDIT SERIAL NUMBFR BACKWARDS UNTIL IT EITHER REACHES 
THE BEGINNING OR FINDS THE RESTART AREA* IF IT REACHES 
THE BEGINNING OF THE AUDIT FILE, IT QUITS AND PRINTS A 
MESSAGE INDICATING THAT THE RESTART FILE WAS NOT FOUND. 
IF IT ENCOUNTERS THE RESTART AREA, IT WRITES IT TO OISK 
AS A PERMANENT FILE. INDICATES THE TITLE IN ITS REPORT. 
AND THEN TERMINATES. 

TASKVALUE 



THE SIGN OF THE TASKVALUE IS USED TO INDICATE HALT/LOAD 
RESTART. IF THE TASKVALUE IS POSITIVE, THEN IT IS A 
HALT/LOAD RESTART. THE MAGNITUDE UF T*E TASKVALUE IS 
USED TU INDICATE A NORMAL RUN OR A DELAYEU HESTART. FOR 
A NORMAL RUN, THE ABSOLUTE VALUE Of THE TASKVALUE IS LESS 
THAN 256 AND IS THE LOGICAL TASK NUMBER. FOR A DELAYED 
RESTART, THE MAGNITUDE OF THE TASKVALUE IS GREATER THAN 
255 AND IS THE FNTIRE THIRD IDENTIFIER OF THE RESTART 
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FILE NAME. 
EXAMPLE 1 
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TO RUN A NORMAL JOB. THE FOLLOWING WFL PROGRAM CVULD BE 
OSLO. 

V JOb EXAMPLFl 
? BEGIN 

V !■ -II 

ON RESTART. If V < THEN V t» -VI 
RUN TEST1I VALUE « VI 
? END JUBJ 

EXAMPLE 2 



TO DO A DELAYED RESTART. ONLY ONE LINE UF THE PREVIOUS 
EXAMPLE NEED BE CHANGED. ASSUME THAT THE OLD JOB NUMBER 
WAS 9999 AND GET DMREST ARTF I LE HAS BEEN RUN SUCCESSFULLY. 
THEN IHE FOLLOWING WILL PROVIDE A DELAYED RESTART WITH 
FULL HALT/LOAD PROTECTION! 

? JOB EXAMPLE! 

? BEGIN 

V I* -99990011 

ON RESTART. IF V< ThEN V l« -VI 

RUN TEST1I VALUE « VI 

? END JOBI 



H.J. 3. EXAMPLE COBOL JOb 



THE FOLLOWING IS A SKELETON Of A RESTARTABLE DATA 
MANAGEMENT COBOL JUB. THE PROGRAM READS AN INPUT DECK OF 
CARDS. EACH CARD CONTAINS ENOUGH INFORMATION TO UPDATE 
ONE MEMHER UF THE UATA MANAGEMENT SET PERSONNFL. THE 
UPDATING OF UNE MEMBER IS A TRANSACTION. THE POINT OF 
THE RESTART CODE IS TO SHIP IHE CARDS THAT HAVE ALREADY 
BEEN PROCESStU. 
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THE PROGRAM HAS FULL PROTECTION IN ALL CASES, INCLUDING 
HALT/ LOADS DURING A DELAYED RESTAhT. 

EXAMPLE COBUL PRU6HAK 

IDENTIFICATION DIVISION. 



ENVIRONMENT DIVISION* 



inPut-ootpot section* 
file-control. 

select xxxx assign to database-restart « 



DATA DIVISION* 

FILE SECTION* 

FO XXXX VALUE GF ID IS XID. 

01 CARDSIN PIC V(b) COMP, 



OATA-bASE SECTION. 

01 INVOKE PERSONNEL IN COMPaNYX* 



WORKING-STORAGE SECTION. 
77 I PIC 915) COMP-1. 



01 XID. 



UU264 UP6700 
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02 XI PIC X(24) VALUE "OMRtST AHT/COMPANYX/XXXX/" . 

02 X2 PIC 9(11 ). 

■> 

02 X3 PIC X VALUE " . w . 



PROCEDURE DIVISION. 

THEONLY SECTION* 

DUMLAH. OPEN INRUf CARD. 

OPEN OUTPUT PRINT* 

UPEN PERSONNEL UPDATE UN EXCEPTION GO DIE. 



IF MYSELUTASKVALUE) > GO HALT-LOADED. 

IF ABS(MYSELHTASKVALUE)) > 255 GO DELAYED-RESTART « 

liU START-PbM. 
DELAYED-RESTART. COMPUTE X2 ■ ABS(MYSELF ( T ASK VALOE ) ) . 

SE1 XXXX (TITLE) TO XID. 

SET XXXX CFILETYPE) TO 7. 

IF XXXX (PRESENT) * VALUE MLSE 

COMPUTE I » I/O ELSE GO CUNT INUE-RESTART , 
HALT-LUADED. COMPUTE X2 * 

1000*MYSELF(EXCEPTIONTaSK(STACKNU)) ♦ 

(MYSELF(TASKVALUE) MOD 1000). 

SET XXXX (TITLE) TO XlD. 

SET XXXX (FILETYPE) TO 7. 

IF XXXX (PRESENT) « VALUE ULSE 

IF MYSELF(TASKVALUE) > 255 dO UELAYEO-RESTART 
ELSE till START-PGM. 
C0N1INUE-RESTART. 

READ XXXX AT END COMPUTE I « I/O. 

CLOSE XXXX. 

MOVE CARDSIN TO 1. 

MOVE TO CARDSIN. 

PERFORM HEAD-CARD I TIMES. 
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GO LOOP* 

START-PGM. MOVE TO CAHUSIN. 
LOOP. PERFORM READ-CARD. 

<UATA BASE OPERATIONS TO UPDATE ONE MEMBER 
OF PERSONNEL SET> 

END-TRANSACTION ON EXCEPTION GU DIE. 

GO LOOP* 

EOJ. STOP RUN. 



DIE. COMPUTE I 
READ-CARD. 



I/O, 



READ CARD AT END GO EOJ, 
ADD 1 TO CARDSiN. 



«*.<♦ 



PITFALLS 



THE SYSTEM RESTARTS JOBS BY DEFAULT. IF THIS IS NOT 
DFSIRFO* THE JOB MUST BE CODED IN WFL SO THAT IT WONT 
RESTART. 

THE TASKVALUE UF A TASK MUST BE TESTED AFTER THE FIRST 
OPEN ON A DATA MANAGEMENT SET. If IT IS NOT. RECOVERY 
MAY NOT YET HAVE BEEN RUN AND HAVE CREATED THE 
APPROPRIATE RESTART FILES. 

DIRECT I/O MUST BE USED BY THE COBOL PROGRAM TO 
SYNCHRONIZE ITS OUTPUT FILES WITH END-TRANSACT I ON . USING 
LOGICAL I/O WILL HFSULT IN 1 HE LOSS OF WHAT WAS IN THE 
CORE BUFFERS If A HALT/ LOAD OCCURS . 

IN THE RESTART CODE* WHEN PUS11IUNING FILtS FOR RESTART. 
IT IS TYPICAL THAT THE COUNURS IN THE RESTART AREA WILL 
BE BUMPED. ONE 'wAY TO GET ARUUND THIS IS TO MOVE THE 
COUNTERS IN THE RESTART ARIA Tu TEMPURARY VARIABLES. ZERO 
GUT THE RESTART AREA. AND USE 1HE TEMPUhARY VARIABLES FOR 
REPOSITIONING COUNTS. 



UC2ti4 



4.5. 
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SOME SCHEME FOR REMOVING OLD RESTART FILES MUST BE 
DEVISED HY THE INSTALLATION. 

SUMMARY OF RESTART PROCEDURES 



RESTART AFTER A HALT/LUAU IS AUTOMATIC. IF THE COBOL 
PROGRAM IS US-ED. A DELAYED RESTART MUST bE PERFORMED. 
GETDMRESTARTF ILE MAY BE USED TO OBTAIN THE RESTART FILE 
IN THIS CASE. IF THE MONITOR WAS ALSO DS-ED AND 
DMRECUVER SUBSEQUENTLY RUN. THE RESTART FILE WILL ALREADY 
tit THERE. BUT GETTING IT AGAIN WITH GETDMRESTARTF ILE WILL 
DO NU HARM. 

DUPLICATED FILLS 



t>. i , 



INTRODUCTION 



5*4. 



DM6700 NOW SUPPORTS DUPLICATED FILES FOR ALL DATA 
MANAGEMENT FILES FXClPT DM/<DAT ABASE"NAME>/DDL » DM/ 
<|)ATA8ASE-NAME>/AUUITARCHIVE AND THE AUDIT TRAIL. 

DATA MANAGEMENT DUPLICATED FILES ARE NOT SYSTEM 
DUPLICATED FILES. THIS IS BECAUSE SYSTEM DUPLICATED 
FILES ARE NUT CURRENTLY SUPPORTED UN DIS* PACK NOR WITH 
DIRECT I/O. THE FRRORS FILE. DM/<DATABASE-NAME>/ERRORS 
IS THfc ONE EXCEPTION. IT IS FULLY DESCRIBED IN SECTION 
U2, ANU. IF DUPLICATED* WILL BE A SYSTEM DUPLICATED 
FILE. 

THE SYNTAX WITH WHICH DM6700 FILES (I.E*» BOTH FILES AND 
INDEXES) ARE DUPLICATED IS INCORPORATED INTO BOTH SOL/ 
STRUCTURE. AND SOL/INI T I AL I ZE . 

IF A DM6/00 FILE IS DUPLICATED* bOTM COPIES MOST RESIDE 
UN THE SAME DEVICE (I.E.. ONE COPY CANNOT BE ON DISK 
PACK WHILE THt OTHER IS ON HEAU-PER-TRACK ) . 

NAMING CONVENTION 



0U2fl4 



5.3 
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IF A DM FILE IS 10 RE DUPLICATED* ONLY ONE COPY WILL BE 
KEPT. THE NAMES OF DM6700 OUPLICAIEU FILES ARE" 

DM/<DATAbASE-NAME>/ w <STHUCTUKE-NUMbEK>#l" 
DM/<UA"AbASF-NAME>/"<STRUCTURF.-NUMbER>*2" 

FOR SDL THE NAMES AREt 

DM/<UATABASE-NAME>/"SDL#1" 
DM/<DATABASE-NAME>/"S0L#2" 

SDL INTERFACE 



S. 3.1 



THERE AHE TWO WAYS IN WHICH 10 DUPLICATE DM6700 FILES-- 
USING THE DEFAULT CLAUSF. AND INDIVIDUAL SPECIFICATION BY 
STRUCTURE. 

DFFAULT CLAUSE 



5 . J . 2 » 



SYNTAX FUR A "DEFAULT" STATEMENT HAS BEtN INCORPORATED 
INTO BOTH SDL/STRUCTURE AND SDL/ INIT I AL I lg TO ENABLE 
SPECIFICATION OF DEFAULT VALUES F UR ALL STRUCTURES FOR 
SUCH THINGS AS DEVICE AND DUPLICATED FILES. "DEFAULT 
DUPLICATED * UN;" WILL CAUSE ALL DM FILES. EXCEPT THOSE 
MENTIONED AbUVE. TO bE DUPLICATED. IT IS POSSIBLE TO 
OVERRIDE THE DEFAULT VALUF. I.IVEN TO DUPLICATED BY 
INDIVIDUAL STRUCTURE USING THE SYNTAX PRESENTED BELOW. 
IF. FDR EXAMPLE. "DEFAULT DUPLICATLD = UNJ" WAS SPECIFIED 
AT STRUCTURE TIME. THFN SPtClFYlNG "DEFAULT DUPLICATED « 
OFF;" AT INITIALIZE TIME WOULD RESET THIS OPTION TO OFF 
FOR ALL FILES NOT SPECIFICALLY SET TO IMPLICATED ■ ON 
USING THE SYNTAX FUR INDIVIDUAL STRUCTDRES. 

IF* DUPLICATED IS NOT MENTIONED IN THE DEFAULT SECTION OF 
SDL/STKUCTURE# THEN DUPLICATED » UF F IS ASSUMED (I.E.. 
THE DEFAULT VALUE FOR DUPLICATED IS UFF). 

INDIVIDUAL SPECIFICATION BY STRUCTURE 



THE SYNTAX FOR MODIFYING STRUCTURE INFORMATION AT 
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INITIALIZE TIME HAS HFEN EXPANDED TO INCLUDE DUPLICATED « 
ON AND DUPLICATED = OFF. 

^ 

IF THE DUPLICATED SYNTAX IS USED FOR A SPECIFIC 
SThUCTUHE. IT WILL UVERH1DE ANY VALUE SPECIFIED FDH 
DUPI-1CATEU IN THE DFFAULT SECTIONS. 

NEW SYNTAX HAS ALSfl BEEN ADDED TO SOL/ IN IT I AL 1 ZE TO 
ENAHLE ATTRIBUTES SUCH AS DEVICE AND DUPLICATED TO BE 
GIVEN TO THE SDL AND FRRORS FILES. 

b«i.j, EXAMPLES 

EXAMPLE II VHUN S YSTFM/SDL/STKUCTURt 
?DATA CARD 

UATABASE « TESTDBI 

UEFAULT DUPLICATED « ON. DEVICE ■ DISKPACKI 
?END 

BY SETTING DUPLICATED UN IN THt DEFAULT SECTION, THE USER 
HAS INDICATED THAT ALL DM UL£8 ARE TO BE DUPLICATED. 
(HE HAS ALSO SPECIFIED THAT ALL FILES RESIDE ON DISK 
PACK, SEE SECTION 6. ) 

EXAMPLE 2« ?RUN S YSTFM/SDL/ IN I T I AL 1 it 
?UATA CARD 
UATABASE « TESTDBJ 
SET ERRGRLOG DUPL IC ATfcD»QF F I 
SET SDL nUPLICATEU*UN' 

SET 16 BLOCKFACTON ■ 10, DUPLICATED ■ OFF. 

AREASIZE • 51 
?END 

IN THIS EXAMPLE, THFHF IS NO DtFAULT SECTION AND THE USER 
HAS INDICATED THAT THE ERRURS FILE ANU STRUCTURE #16 
SHOULD NUT BE OUPLlCATEU. IN AUDITIUN, HE HAS 
REDUNDANTLY SAID THAT THE SDL FILE WILL BE DUPLICATED (I* 
E.. SEfJINU DUPLIUTED«UN IN THE DEFAULT SECTION OF 
5TKUCTUNE TURNED DUPLICATED ON FOR SDL). 
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S.4. OMPRlNTIT INTERFACE 

■>•■»• • ■<■ ai • at <■ a ai » a. « a. ■ • — a> ■> 

USING DMPRINTIT ONE CAN PRINT BOTH OR EITHER COPY QF A 
DUPLICATED FILE. (SEF SECTION 9.1.1). 

TO GET A PRINTIT OF BOTH COPIES* THE "OLD" SYNTAX IS USED. 
THAT IS NO #1 OR #2 IS ATTACHED TU IHE NAME OF THE FILF. 
THUS, TESTDB/0042 WILL CAUSE BOTH COPIES OF STRUCUTRE 42 
TO BE PRINTEO, IF IT IS DUPLICATED. 

TO PRINT EITHER COPY SEPARATELY, THE EXACT TITLE IS GIVEN. 
THUS, TFSTDB/"0042#2" WOULD RESULT IN PRINTING OF COPY 
NUMBER 2 FOR STRUCTURE NUMBER M2 ASSUMING STRUCUTRE 42 
WAS DUPLICATED. 

TESTDB/ALL wlLL PRINT BOTH CUPIES UF ALL FILES THAT ARE 
DUPLICATED. 

6. DISKPACK 



6.1. 



INTRODUCTION 



SYNTAX HAS BEEN ADDED TO STRUCTURE AND INTIALIZE TO 
ENABLE ANY OR ALL DM FILES TO RESIUE ON A NAMED FAMILY OF 
DISK PACKS. 

THE FAMILY NAME IS. IN ALL CASES. THE DATA BASE NAME. 
THUS, ALL DM FILES FOR A fclVEN DATA bASt THAT ARE TO 
RESIDE ON DISK PACK WILL BE PLACED UN A FAMILY OF DISK 
PACKS WHERE THE FAMILY NAME IS THE DATA BASE NAME. ONE 
OF THE IMPLICATIONS IS THAT DM ULES (EXCEPT AUDIT FILES) 
CANNOT RESIDE UN SYSTFM RESOURCE PACK. 

DM/<DATAHASE-NAME>/DDl CANNOT bL PLACED ON PACK. 

DM/<DATABASE*NAME>/ERRURS CANNOT BE PLACED ON PACK IF 
DUPLICATED HAS BEFN SET ON. ThiS IS BECAUSE THE ERRORS 
FILE IS A SYSTEM DUPLICATED ULE (IP DOPLICATED IS 
SPECIFIED) AND SYSTEM DUPLICATED ULES ARE NOT SUPPORTED 
ON DISK PACK. 
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6*2, 



.,5*" ' 8 



UM/<DA7ABASE-NAME>/AUDITARCHIVt CANNOT BE PLACED UN DISK 
PACK. 



SDL INTERFACE 



6.2.1* 



DEFAULT CLAUSE 



6.2.2. 



ALL DM FILES CAN BF SET TO uISK PACK OR HEAU-PER-TRACK 
DISK USING THE NEW DEFAULT SYNTAX IN BOTH STRUCTURE ANO 
INITIALIZE. FUR EXAMPLE* "UEF AULT DEVICE « DISKPACKJ" 
WILL CAUSE ALL DM FILES EXCEPT THOSE NOTED AbOVE TO 
RESIDE ON NAMED PACK WHERE THE FAMILY NAME IS THE 
DATABASE NAME. IF DEVICE IS NOT SPECIFIED IN A DEFAULT 
CLAUSE* THEN THE DEVICE DEFAULTS TO HEAO-PER-TRACK DISK. 

INDIVIDUAL SPECIFICATION BY STRUCTURE 



6*2.3 



EACH FILE AND/OR INDEX CARD IN STRUCUTRE AND EACH SET 
STATEMENT IN INITIALIZE HAS THE DEVICE * DISK AND/OR 
DEVICE • UISKPACK SYNTAX I NCORPUKA TED . 

A DEVICE SPECIFICATION FOR AN INDIVIDUAL STRUCTURE 
OVERRIUES ANY DEVICE SPECIFICATION IN THE UEF AULT SECTION. 

EXAMPLES 



EXAMPLE It 



?RUN SYSTFM/SDL/STRUCTURE 
?DATA CARD 

UATABASE « TESTDBJ 

DEFAULT DEVICE « UISKPACK/ 

INDEX ACCUUNTNO (TYPE * INDEX-SEQUENTIAL* 

DEVlCt • DISK)! 

FILE SAVINGS (DEVICE * DISK)* 

FILE CHECKING (DEVICE « DISKPACKH 
?ENl) 

SETTING DEVICE EUUAt TO DISKPACK IN THE DEFAULT SECTION 
WILL CAUSE ALL DM FTLFS EXCEPT DDL AND THE AUDITARCHIVE 
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TO BE PLACED ON A SFT OF PACKS WITH FAMILY NAME TESTDR. 

HOWEVER THE USER HAS SPECIFIED THAT TmE F ALF. SAVINGS AND 
THE INDEX SEQUENTIAL STRUCTURE FUR ACCOUNTNO SHOULD 
RESIDE ON HtAD-PER-TRACK. THIS INCLUDES bOTH THE FINE 
AND COARSE TABLES. THE FILL CHECKING WAS SPECIFICALLY 
PLACED QN PACK. 

EXAMPLE ?t VSYSTEM/SDL/INITIALIZE 

7UATA CARD 
DATABASE « TESTUBJ 
DEFAULT nEVlCE « DISK* 

SET SDL DEVICE * OISKPACK, DUPLICATED « ONJ 
SET ERRORLOG DEVICE « OISKPACKJ 
SET 16 BLOCKFACTOR * H. DEVICE * DISKPACKj 

?ENO 

THE DEFAULT CLAUSE HERE WILL CAUSE THE SYSTEM TO PLACE 
ALL DM FILES NOT PREVIOUSLY SPtCIFKALLY SLT TO DISK PACK 
ONTO HEAD-PER-TRACK. TME DEFAULT CLAUSE AT INITIALIZE 
TIME DOES NUT OVFRRIDE ANY DEVICE SPECIFICATIONS AT 
STRUCTURE TIME THAT WERE SET AS INDIVIDUAL STRUCTURES. 
THUS. THE FILE "CHECKING" WILL STILL BE SET TO DISK PACK 
EVEN THOUGH THE DEFAULT IN INITIALIZE WAS DISK. 

THE USER THEN SELECTIVELY PLACES THE SDL FILE, THE ERRORS 
FILE AND STRUCTURE 1A BACK ONTU DISK PACK. THE SDL FILE 
WILL ALSO BE DUPLICATFD. 

WERE HE TO TRY AND SET DUPLICATED « ON FUR THE ERRORS 
FILC. (I.E.. SET ERRORLOG DEVICE * OISKPACK. DUPLICATED 
■ ONI). A WARNING WOULD BE PRINTED TO THfc EFFECT THAT 
THIS FILE CANNOT RESIDE ON DISK PACK, IF DUPLICATED. AND 
DEVICE WOULD AUTOMATICALLY REVERT UACK TO DISK. 

6.4. DMPRINTIT INTERFACE 

DMPRINTIT HAS BEEN MODIFIED TO PRINT DM FILES THAT RESIDE 
QN DISK PACK. (SEE SECTION 9.2.2.) 
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7. I-U ERROR HANULING 

* • MM* M M M • W «••■••■»■» 

THIS SECTION DESCRIBES THE WAY IN WHICH 0M6700 HANDLES 1/ 
ERROR INDICATIONS IT RECEIVES) FROM THE OPERATING 
SYSTEM. THE FORM In WHICH SoCH ERRORS ARE TRANSMITTED 
BACK TO THE USER PROGRAM, AND THE MEANING Of THE NEW I/O 
STATUSES. 

UNTIL THE 11.4 RELEASE AN I/O ERROR RESULTED IN A FAULT 
TERMINATION IN 0H6700. I/O ERRORS ARE NOW CAPTURED AND 
LOGGED. AND NOTIFICATION OF SUCH IS RETURNED TO THE USER 
PROGRAM VIA NEW STATUSES. 

7.1. ERROR FILE 

7.1.1. LAYOUT OF EHROH FILE 

A NEW FILE DM/<DATARASE-NAME>/ERRORS IS NOW CREATEO. ITS 
fUNCTIUN IS TO KEEP TRACK BY ROW, OF WHICH COPIES OF 
WHICH STRUCTURES HAVE HAD READ AND/OR WRITE ERRORS. 

EACH RECURD OF THE FRRORS FILE IS 45 WORDS LONG AND THE 
FILE IS BLOCKED TWO* 

RECORD CONTAINS 1/0 ERRORS FUR THE SDL UIRECTORY WHILE 
RECORD 1 CONTAINS I/O ERRORS F UH THE SECOND COPY OF SDL 
IF IT IS DUPLICATED (I.E.. DM/<DATABASE-NAME>/*SUL#2" ) . 

RECORD 2 CONTAINS I/O ERROHS FOR STRUCTURE #1 WHILE 
RECORD 3 CONTAINS I/O ERRURS FOR THE SECOND COPY OF 
STRUCTURE #1 IF DUPLICATED. 

IN GENERAL, RECORD 2XN CONTAINS A LUti OF I/O ERROR 
INFORMATION FOR STRUCTURE N WHILE RECORD 2XN+1 CONTAINS 
I/O ERROR INFORMATION FOR THE SECOND COPY UF STRUCTURE N. 

7.1.2. RECORD LAYOUT - ERROR FILE 

THE FORMAT OF EACH 45 WORD RECURD IS AS FOLLOWS! 



D0284 DM6700 - DESIGN Of RECOVERY FOR 0*6700 - U4-03-7 > $ <iE 101 



WORD 



WORDS 1-21 



WORDS 22-42 



WORD 43 
WORD 44 



47124 - NUMBER OF WRITE ERRORS FOR THIS 
STRUCTURF AND CORY. 23124 - NUMBER OF READ 
ERRURS FOR THIS STRUCTURE AND COPY. 

THE ROWS WHICH hAVE RECEIVED WRITE ERRORS- 
UNE BIT PER ROW STARTING WITH WORD 1 BIT 47 
(RUM 0) AND ENDING WITH WORD 21 BIT (ROW 
100B). A BIT ON (1) INDICATES THAT A RECORD 
IN THAT ROW HAS HAD A WRITE ERROR AND THAT 
ALL RECORDS IN THAT ROW ARE NUW LOCKED. 

THE ROWS WHICH HAVE RECEIVED HEAD ERRORS - 
ONE BIT PER ROW STARTING WITH WORD 22 BIT 47 
(ROW 0) AND ENDING WITH WORD 42 BIT (ROW 
1008). A BIT ON (1) INDICATES THAT A RECORD 
IN THAT ROW HAS HAD A READ ERROR BUT THE ROW 
IS NOT NFCESSARILY LOCKED. 

JULIAN DATE OF THt FIRST ROW IN ERROR. 

TIME Of THE FIRST MOW IN ERROR. THE TIME 
AND DATF ARE UStD TU DETERMINE WHICH AUDIT 
FILE TO START WITH WHEN RECONSTRUCTING. 



7.1.3. 



DMPRINTIT INTERFACE 



7.2. 



A FORMATTED LISTING OF THE IHRORS FILE MAY BE OBTAINED 
VIA DMPRINTIT USING A <DATABASE-NAMfc>/ERHQHS CARD. THE 
FORMAT OF THIS PRINTUUT IS OESCRIBtD IN SECTION 9.1.2. 

Nfw STATUSES 



STATUS 



MEANING 



200 
201 
202 
204 



<- ROW LOCKED OUT - WRITE ERROR 
RFAD ERROR - UNIT NOT READY 
RFAD ERROR - READ PARIlY 
RFAD ERROR - DESCRIPTOR IN ERROR 



STATUS 200 MEANS THAT ALL RECORDS IN A ROW ARE LOCKED OUT 
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TO EVERYONE. THERE HILL BE NO HEADS ATTEMPTEO TO THIS 
HOW. ANY UATA MANAGEMENT OPERATION WHICH TRIES TO ACCESS 
A RECORD FROM THIS ROW WILL SEE This STATUS. THE REASON 
THE ROW IS LOCKED IS THAT THE OAlA ON UiSK OH DISK PACK 
IS OUT OP UAlE. THE FOLLOWING EXAMPLE WILL HELP CLARIFY 
THE NEFD KOR HQW LOCKOUT. 

SUPPOSE A USER PROGRAM UOES A MODIFY, FOLLOWED BY MOVES, 
FOLLOWED BY A STORE. AND THAI HE RECEIVES A STATOS OF 
F'QH BUTH DM OPERATIONS. FHOH MIS POINT OF VIEW* HE HAS 
MODIFIED SOME DATA. DM6700 MOST ALSO TREAT THE DATA AS 
HAVING BEEN UPOATEU* RUT BECAUbE UF US MULTIPLE BUFFERS* 
THE CHANGE TO THAT DATA WILL NOT BE REFLECTtD ON DISK OR 
PACK UNTIL THE DATA MANAGEMEixl SYSTEM IS FURCED TO GIVE 
UP THAT BUFFER IN ORDER TO BRING IN NEW RESOORCES. WHEN 
0M67OO ATTEMPTS TO WRITE THIS UPDATED RECORD TO DISK AND 
RECEIVES A WRITE EKROR* THE HOW IS LOCKED DOT. AT THIS 
POINT DM6700 CALCULATES THE HOW THIS RECORD WAS IN* AND 
ENTERS THE FACT THAT IT ENCOUNTERED A NRITt ERROR UN THIS 
ROW INTO THE ERHOH FILE. SINCE THE OPDATED MEMBER IS NO 
LONGER IN A DM6700 BUFFER AND BECAuSt DM6700 WAS 
UNSUCCESSFUL IN WRITING IT BACK TO DISK, ANY FUTURE 
ATTEMPTS TO ACCESS ANY RECORD FRUM T Hi S HOW WILL RESULT 
IN A STATUS UF 200 - ROW LOCKtD OUT. (THL MODIFIED DATA 



WILL* OF COURSE* 
AUDI TING* ) 



BF WRITTEN IU THE AUDIT TRIAL* IF 



IF A WRITE ERHOH OCCURS ON A ROW UF A DUPLICATED FILE* 
THEN IF THE CORRESPONDING HUW IS NOT IN ERROR IN THE 
OTHER COPY* A BAU STATUS WILL NO f BE PASSED BACK TO THE 
USER PROGRAM WHEN HE TRIES TU ACCESS A RECORD IN THAT HOW. 
IN EITHER CASE* HOWEVER* THE FAC1 THAT A WRITE ERROR HAS 
OCCURRED IS LOGGED In THE ERROR FILE. STATUSES ?01» 202 
AND 204 ARE RLAD ERRORS. ALL HEAD ERRORS ARE ALSO LOGGED 
IN THE EHHUH FILE BUT A HEAD ERRUR DUES NOT CAOSE ROW 
LOCKOUT. THE UATA ON DISK IS NUT OUT OF DATE* IT JUST 
CANNOT BE READ. 
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WITH DUPLICATED FILFS. A READ ERROR FROM A ROW IN ONE 
COPY WILL NOT BE RETURNED TO THE USER HRUGRAM AS SUCH 
UNLESS THE CORRESPOND TNG ROW IN THE UTHER CQPY HAS EITHER 
A READ OR WRITE ERROR. IF THE CORRESPONDING ROW HAS A 
WRITE ERROR* THEN A STATUS OF 200 WILL BE RETURNED. IF 
THE CORRESPONDING ROW HAQ A READ ERROR* THE APPROPRIATE 
READ ERROR WOULD BE RFTURNED. 

THE SYSTEM MAINTENANCE LOG CAN BE USED IN CONJUNCTION 
WITH THE ERROR FILE TO DETERMINE SUCH THINGS AS PHYSICAL 
DISK ADDRESSES, DATES AND FIMEb OF ERRORS. 

FOR PURPOSES OF RECONSTRUCTION AND RESTORATION. IT IS 
IMPORTANT TO BE COGNIZANT OF ENTRIES IN fHE ERROR FILE. 
THIS MAY HE DUNE VTA USER PROGRAMS GIVING SOME SORT OF 
NOTIFICATION UPON RECEIVING SOCH ERROR STATUSES OR BY 
PERIODIC FORMATTED LISTINGS OF THE ERHOR FILE VIA 
DMPRINTIT. SECTION 6 GIVES A UETAlLED EXPLANATION OF HOW 
AND WHEN THE ERROR FILE IS USED IN CONJUNCTION WITH 
RECONSTRUCTION AND RESTORATION. 

RECONSTRUCTION AND RESTORATION 



0. li 



INTRODUCTION 



t>*2. 



RECONSTRUCTION AND RESTORATION PERFORM TWO FUNCTIONS. 

THE FIRST IS TO BRING DATA IN A ROW LOCKED OUT BECAUSE OF 
WRITE ERRORS UP TO DATE AND TO PLACE THIS NEW. OPDATED 
ROW IN ANOTHER PHYSICAL LOCATIUN. 

THE SECOND FUNCTION IS TO MOVE RUW5 WHICH HAVE HAD READ 
ERRORS TO OTHER PHYSICAL LOCATIONS. 

RECONSTROCTION AND RESTORATION PERFORM BOTH FUNCTIONS. 
THE DIFFERENCES BETWEEN THEM AKE A MATTEH OF TIME AND 
SPACE. 

RESTORATION 
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RESTORATION REQUIRES A GOOD CUPY OF Thf ROW FROM THE 
OTHER COPY UF THt DUPLICATED UATA bASE FILE* IT COPIES 
THE GOOD ROW TO A GUOD ROW UF ANOTHER FILE (EITHER ONE 
INTERNAL TO HESTURATION OR A USEH SPtClFlEU BACKUP) AND 
THEN tXCHANGtb THE NEWLY CRtATEU GOOD ROW WITH THF BAD 
NOW. AT THIS POINT. THE PARllCULAh ROW IS VALID AND UP 
TO DATE UN HUTH CUPIFS OF THF DUPLICATED DATA MANAGEMENT 
FILE. 

RFCONSTRUCTlUN 



RECONSTRUCTION DOES NOT HAVt AN UP TO DATE COPY OF THE 
HAD RUW AS RESTORATION DOES. THUS ITS FIRST TASK WHEN 
RECONSTRUCTING A ROW LOCKED OUT BECAUSE OF "RITE ERRORS. 
IS TO BRING THE CORRESPONDING RUW OF A PREVIOUS BACKUP 
COPY UF THE FILE UP TU DATE USING THE AUDIT TRAIL* ONCE 
THt BACKUP KUW IS UP TU DATE. RtCONSTRUCT ION EXCHANGES 
THIS ROW WITH THE BAD ROW JUST AS HESTURATION DOES. 

SFLECTIUN UF THE STARTING AUDIT FILE IS CRITICAL. THE 
DATE AND TIME THAT THt STARTING AUDIT FILL WAS CREATED 
MUST BE BEFORE THE DATE AND TIME UF THt FIRST ERROR FOR A 
GIVEN STRUCTURE. IF THE STARTING AUDIT FILE WAS CREATED 
AFTER THE FIRST ERROR* MODIFICATIONS TO DATA IN ANY OF 
THE BAD HOWS MAY HAVF BEEN MAUE IN THE INTERIM AND WOULD 
THUS BE LUST -- AFTFR IMAGES FOR THESE CHANGES WOULD BE 
IN AN EARLIER AUUIT FILE. 

CONSIDER THE FOLLOWING SEQuENCt OF EVENTSl 

TUESDAY - DH/AUDITOOOl CREATED. 

RECORD IN RUW 56 FOR STRUCTURE 1* MODIFIED AND STORED 
SUCCESSFULLY. A WRITE ERROR OCCURS ATTEMPTING TU WRITE 
THt PREVIOUSLY MUDIFIED RECORD. (I.E.. COPY OF RECORD 
UN DISK IS NUW OUT OF DATE). 

UB/AUDIT0001 FULL. 
UB/AUUIT0002 CREATED. 
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ASSUMING THE ABOVE WRITE ERROR WAS THE URST ERROR FOR 
STRUCTURE 12# THE DATE AND TIME WILL HAVE BEEN ENTEHEO 
INTO THE ERRUH FILE. IF DB/AUDITOOO? WERE CHOSEN AS THE 
STARTING AUOIT FILE* THE RECORD IN ROW 56 WOULD BE OUT OF 
DATE AFTER RECONSTRUCTION FINISHED. THUS, UNLESS 

OVERRIDDEN BY A USER SPECIFIED STARTING AUDIT SERIAL 
NUMBER* RECONSTRUCTION WILL SLARCM THE AUDIT ARCHIVE FOR 
AN AUDIT FILE THAT WAS CREATED BEFORE THE DATE AND TIME 
OF THE FIRST ERROR THAT APPEARS IN THE ERRUR FILE. 

8.4. OMRQWRECOVERY - USER INTERFACE 

• •»■•» ••■•••■•■■••a m ■»*>■>*» «••••»•••»•»••»•» 

8*4.1. INTRODUCTION 

THE USER INTERFACE TO RECONSTRUCTION AND RESTORATION IS 
THROUGH THE PROGRAM SYSTEM/DMRUWRECOVERY « 

THE BASIC INTENT OF UMROWRECUVEK Y IS THAT THE OATA BASE 
ADMINISTRATOR BE ABLE TO TtLL 0M6700 TO "REBUlLO" A 
STRUCTURE FOR A DATA BASE* BUI THAT DM6700 DETERMINE VIA 
THE ERROK FILE WHICH ROWS SHOULO BE RESTORED AND WHICH 
NEEO TO BE RECONSTRUCTED TO COMPLETELY REBUILD ALL BAD 
ROWS FUR THAT STHUCTURE OF THE DATA BASE. ThUS IT IS NOT 
POSSIBLE TO KEBOILD ONLY SOME ROWS UR SPECIFIC ROWS OF A 
STRUCTURE WITHOOT REBUILDING ALL IIS BAD RUWS. 

8.4,2 REMOVE 

THE REMOVE COMMAND GIVES THE USE* THE ABILITY TO REMOVE 
FROM THE ERROR FILE THE INDICATION THAT A ROW OR ROWS OF 
A OATA MANAGEMENT FILE HAD INCURRED A READ ERROR. THUS 
ANY SUBSEQUENT RECONSTRUCTION AND/UR RESTONATION (I.E.* 
RUN OF DMRUWHECOVERY) WILL HAVE NU EFFECT UPON THIS ROW. 

THIS COMMAND WAS INCORPORATED FOR THE CIRCUMSTANCE IN 
WHICH REAU ERRORS HAD BEEN DETECTED BECAUSE UF A UNIT NOT 
READY. SUCH AN ERROR WOULD BE RETURNED TO THE 

APPLICATION PROGRAM AS A STATUS UF 201. HOWEVER* IT IS 
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REASONAHLE FOR A DATA dASE ADMINISTRATOR TO RECOGNIZE 
THAT THESE KEAU fcRRORS HERE UNLY A RESULT OF A UNIT NOT 
READY ANU SINCE THE DATA IS NUT BUT OF DATE AND CAN NOW 
dE READ (UNIT MADE READY) Ht SHOULD RESET THOSE REAO 
ERRORS. 

SINCE THE REMOVE ONLY PERTAINS 10 READ ERRORS* NO 
INTEGRITY CAN BE LOST SINCE ThE WORST THAT CAN HAPPEN IS 
TO TURN OFF THE INDICATION THAT A ROW WHICH HAD A READ 
PAHITY WAS dAO. THE ROW WILL SIMPLY NOT dE RESTORED OR 
RECONSTRUCTED UNLESS IT IS TURNtD dACK UN EITHER bY THE 
DATA dASt ADMINISTRATOR OR VIA ANOTHER READ PARITY 
RECEIVED FHUM DM6700. 

THLRE IS NO WAY TO REMOVE A WRITE ERROR FROM THE ERROR 
FILEi 

6»<i.3» INSERT 

*■•»■■ W » • M W «■ M Ml ■ 

the insert command does the oppusite of the remove 
command, it enadles the data dase administrator to set 
head error dlts for any row or rows* 

this command is needed in a situation where* say, a 
sturagt unit werfc tu fail. given enough activity and 
time* dm6700 would attempt tu access or write onto this 

STOHAGE UNIT AnD WOULD APPHUPR i ATEL Y RECORO THE FACT THAT 
IT WAS UNAdLE TO DU SO. THUS blVEN SUCH A SITOATIUN* THE 
DATA dASE ADMINISTRATOR NEEDS A WAY TO TELL DM6700 THAT 
FOR VARIOUS STRUCTURES* CERTAIN Of ITS RUWS ARE IN ERROR. 

mll'll RFdUlLU 

THIS COMMAND SIGNALS DM6700 THAT* FOR A 1»IV£N DATA BASE 
ANU STRUCTURE. THtRE ARE ROWS IN ERROR ANU OF THE DESIRE 
TO REHUILU ALL BAD ROWS. DM6700 WILL DECIDE WHICH ROWS 
(IF ANY) NEED TO BE RFbUILT. 

d. 4. 5. INSTALLATION ALLOCATED DISK ANU DISK PACK 
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ADDITIONAL CONSIDERATION MUST til GIVEN TU f ILFS WHICH 
RESIDE ON INSTALLATION ALLOCATED DISK QR DISK PACK. 

IN PARTICULAR* EACH RAD ROW MUST BE MAPPED INTO A HOW OF 
A BACKUP FILE. THIS DIFFERS FROM NON-UD DM FILES IN 
THAT DMRUWRECDVERY WILL ALLOCATE ITS OWN BACKUP ROW FOR 
RESTORATION PURPOSES IF A BACKUP IS NOT SPECIFIED BY THE 
USER. WITH IAD HLFS. HUWEVtH. THERE MUST BE A ONE FOR 
ONE CORRESPONDENCE BETWEEN BAD ROWS AND GOUQ BACKUP ROWS. 
THE SYNTAX FOR ACCOMPLISHING THIS UNE TU ONE MAPPING IS 
GIVEN IN 8*4.6. 

AN ADVANTAGE WHICH RESULTS FROM HAVING TU PROVIDE A ONE 
TO ONE MAPPING OF GOOD TO BAD ROWS IS THAT IAD SPECIFIED 
BACKUP FILES NEED ONLY HAVE AS MANY ROwS AS THERE ARE BAD 
ROWS IN THE DM FILE. 

EXAMPLEI 

CONSIDER THE FOLLOWING SITUATION. STORAGE UNIT 32 
CRASHES DURING THE NIGHT. ALL UF DM/TESTDB/0045 AND 
THREE ROWS UF UM/TESTDB/0027 WERE UN THIS SU AS IAD FILES. 
THE FOLLOWING IS THE IAD MAPPING FOR BOTH ULES. 

DM/TESTOB/0027 DM/TESTDB/0045 

ROW SU ADDRFSS ROW Su ADDRESS 

32 100 32 3010 

1 32 105 1 32 3110 

2 32 110 

3 34 100 

4 34 105 

suppose also that row 4 of dm/test db/0027 was locked out 
from a previous write error. this particular 
installation takes backup dumps by su so that 
reconstructing a su involves reconstructing from a backup 
copy of su32 on rfserve su48. the error in row 4 

PRESENTS AN ADDITIONAL PROBLEM, HOWEVEH, SINCE THE 
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INSTALLATION HANTS TU KF EP 1HAT RUW ON SU34 AND NOT ON 
THE HACMJP Su48. THUS A SIX KUw IAD I" RE DM/TESTOB/ 
1AUBACKUP MUST BE CREATED. 

Uh/TESTUb/lADbACKUP 
HOw SU AOORFSS 



u 


48 


100 


1 


46 


10S 


2 


48 


110 


3 


48 


3010 


4 


48 


JllO 


b 


34 


200 



THUS TO REBUILU THE bAO RUWS FKQM BOTH THE FILES. THE 
FOLLOWING CARDS WOULD BE USED WITH UMRUWREtUVERY t 

?RUN SYSTEM/DMROWRECOVEHY 
7UATA CARD 
DATABASE * TESTDb 
STRUCTURE 45 

INSERT ROWS 0»1 
REBUILD ALL ROWS 

BACKUP IS (OM/TESTUB/IADBACKUP) 

IAO CORRESPONDENCE IS 3*0> 4*1 
AUUIT » II 
STRUCTURE 27 

INSERT ROWS 0-2 
REBUILD 

BACKUP IS CUH/TEST0B/1ADBACKUP) 

IAO CORRESPUNUENCE IS 0*0 * 1*1 #2*2 #5*4 
J 
?END 

FOK STRUCTURE 45# AN INDICATION THAT ROWS AfcU 1 ARE BAD 
MUST FIRST BE INSERTED INTU THE ERROR FILE SINCE THIS 
STHUCTUHF HAU NO ERRORS PRIUR TU THE CRASHING OF SU32# 
SINCE THERE WEKE NO ERRORS* II IS NUT POSSIBLE FOR 
OMRQWRECOVERY TO FIND IN THE AUOIT ARCHIVE THE PROPER 
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AUDIT FILE KITH WHICH TO START. THUS AN AUDIT SERIAL 
NUMBER MUST HE SPECIFIED. 

FOR STRUCTURE 27 NOTE THAT NO AUDIT SERIAL NUMBER IS 
NECESSARY* SINCE ROW 4 WAS IN ERROR PRIOR TO SU32 
CRASHING. THUS THE DATE. AND TIME AT WHICH THE ERROR 
OCCURREO IS RECORUED IN THE ERROR FILE AND UMROWRECOVERY 
CAN DETERMINE WHAT IT IS. HAD ROM H HAD A READ INSTEAD 
OF WRITE ERROR AND THE DATA BASE ADMINISTRATOR WANTED 
ONLY TO REBUILD THE SU» THEN THAT ROW COULD HAVE BEEN 
REMOVED FRUM THE ERROR FILE WITHOUT COMPROMISING THE 
INTEGRITY UF THE DATABASE* (NUTEl THE RECORD THAT 
ENCOUNTERED THE HEAO FRRQR WILL STILL BE IN ERROR.) 

SYNTAX 



THE SYNTAX FOR UMRUWRFCOVERY lit 

<DMR0WRECUVERY REQUEST> Its <DATABASE NAME SPEC> 

<STHUC1UHE ROW RECOVERY LlST> 
<OATABASF NAME SP£C> tl« <DATAbASE NAME> / 

<0ATABASE UESI GNATORxEUUALS PARTXDATABASE NAME> 
<DATABASE DESIGNATUR> »l« UATAbASfc / DATA-BaSE 
<EOUALS PART> t«» <EMpTY> / ■ 
<STRUCTURE ROW RECOVERY LIST* ««« 

<STRUCTURE ROW RECOVERY REOUESTX 
<STRUCTURE ROW KECOVERY LIST>> 
<STRUtTURE ROW RECOVERY REQUEST> 
<STRUCTURE ROW RECOVERY HEUUES1> I » * <STRUtTURE SPEC> 

<ERROR FILE STATEMENT>/ 
<STRUCTURt SPECXREBUILD STATEMENTS 
<STRUCTURE SPEC><ERROR FILE STATFMENT> 
<REbUlLD STATEMENT> 
<SIRUCTURE SPEC> I I ■ SDL / <STHUCTURL NUMBER> / STRUCTURE 

<STRUCTURE NUMBLR> 
<STRUCTURE NUMdER> «»* <UNSIGNED 1NTLGER> 
<ERROR FILE STATEMENT> li« <REMOVE STATEMENT> / 

<INSERT STAUMENT> 
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<REMOVE SlATtMENT> II* 

REMOVE <EHKOK FILF PART> BOTH 

<C0PIES PARTxALL SPEO / 
REMOVE <EKHIIK F-ILF PART> BuTH 
<COPIES PAPTxROW SPECS> 
<ANU PAKTxFlLE SPECS PART> / 
REMOVE <EPROR FRF PARTXUUPL IU U SPECS> 

<RUW SPECb PAHTXAND PARTXHLE SPECS PART> 
<FKHOH FILE PAHT> IU <EMPTY> / FRLM ERROR FILE/ 

INTO ERROR FILL 
<CoPIES PAhT> Ms <EMPTY> / COPIES 
<ALL SPEO !!■ ALL / ALL ROWS 

<RUW 5PECS> Ms <ROW PANTXHOW NUMBER SPECS> 
<RUW PAHT> tic <LMhTY> / ROW / ROWS 
<R0* NUMHtR SPLCS> tie <ROW NUMBER> / 
<H0W NOMBERXI'HRU SPEO / 

<HUw NUMBER SPFCSxCOMMA PARTXROW NUMBER> / 
<K0W NUMbER SPFCSXCOMMA PART> 
<ROK NUMdERXlHRO SPEO 
<rMRU SPFC> Ma THKU <R0W NUMBtK> / - <R0W NOMBER> 
<C0MMA PART> Us <b.MPTY> / > 
<AN0 PAKT> 11= <LMPTY> / ANO 
<FILL SPECS PAKT> !!■ <EMPTY> 

<UUPLICATE SPLCSxRUW SPECS PARTxANO PART> / 
<FILL SPECS PARTxFlLE SPLCS PART> 
<0UPLICA1E SPECS> M* <EMPTY> / 

<C0PY PART> UNL / 
<C0PY PAHT> IWO 
<CUPY HAKI> »»= <EMPTY> / COPY 

<RUW SPECS PAHT> Ms <ALL SPLC> / <RUW SPECS> 
<INSEH1 SIATEMENT> Ms 

iNStKT <ERH0R FILE PART> bOTh 
<COPIES PARTXROW SPLCS> 
<AnU PAH1XFILE SPECS PAKT> / 
INSERT <LRHUR FILE P AHl xUUPL K ATE SPLC5> 

<ROW SPEtSXAND PARTXFILE SPECS PART> 
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<REBUILD STATEMENT* its REBUILD / 

REBUILD <ALL PART> BACKUP <KILE PARTxTITLF specs> 
<ALL PAHT> <»« <EMPTY> / <ALL SPEO 
<FILE PART> »«« <EMPTY> / FILE 
<TITLE SPECS> l»« <TITLE><IAD PARTXAUDIT PART>/ 

<DUPLICaTE TMLE SPECSxllTLEXlAU PAKTXAUDIT PART> 
<TITLE> tl« (<FILE TITLE In DISPLAY H]RM>) 
<IAD PAKT> !»■ <EMPTY> / 

IAD <C(1RRESPQN0LNCE PART> 
<IAU NUMBER SPEtS> 
CORRESPONDENCE PANT> »»« <EMPTY> / CORRESPONDENCE IS 
<IAD NUMBER SPECS> t !i 

<IAD ROW NUMBER> » <FlLE RUW NUMBER* / 
<IAD NUMBER SPECSxCOMMA PARTxlAU HO* NUMBER> * 
<FILE HOW NUMBER> 
<AU0IT PART> «l« <EMPTY>/ 

AUDIT <SEHIAL PARlXNUMBEH PART> 
* <AUDIT FILE NUMBER> 
<SERIAL PART> tl" <EMPTY> / SERIAL 
<NUMBER PART> II* <EMPTY> / NUMBER 
<DUPLICATE TITLE SPECS> U* 

<FUR PARTxCQPY PART> ONE <IS PART><TITLE> 
<1AD PARTxCOMMA PARTxfOR PARTxCOPY PART> 
TWO <IS PART> 
<FUR PART> t«» <EMPTY> / FOR 
<IS PART> H» <EMPTY> / IS 



tf«4«7i 



EXAMPLES 



EXAMPLE 1 



DATA-BASF * T0047 
SDL 

REMOVE FRUM ERROR FILL 

COPY ONF ROWS 2> 5, 7 THRU 11 
COPY TWO ALL ROWS 
AND REBUILD 



0U2fl<* 



UH6/00 
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HACKUP FILL FOR COPY ONE IS 

(UM/fQ047/ M SUL#l' , )» 
FUK COPY TWO IS 

(OM/TOO*»7/"SUL*2») 



STRUCTURE 2 

INSERT INTO FRROR F ILL 

COPY ONF HOW 13 AND COPY TWU ROWS 9-18 
KLHUILD ALL ROWS 
BACKUP FILL 

FOR COPY ONE IS ( DM/TOO<»7/"000?# 1 " ) 

IAU CORRESPONDENCE IS l*5#2s6»6«0 
FOR COPY TMU IS (DM/T00*7/"Q00?#2 M ) 

IAO COKHESPUNDENCE IS 1«1,3«3»4«5 
A U U I I SFKIAL NUMBER ■ 2; 

EXAMPLE 2 



TOO 4 7 

2 



INSERT 

ONL 13 TWO 9-lfi 
KEdUILD ALL 
HACKUP 

ONF <[>M/ruOH7/"UOU2#l") 

IAO I ■ 5» 2 * 6# 6 
TWO COM/TOO'»7'/ H 0002#2 M ) 
IAD 1»1# 3*3» 4«S 
AUUIT = 21 



tt.H.tt. 



PRA6MAT ICS 



EACH <STKUCTURL HOW RECOVERY RLUUf ST> IS A SEPARATE 
REuULST TO THE DATA bASE MUNITUR. THESE REOOESTS ARE 
HANDLED THE SAME AS NORMAL REQUESTS (E.G.* FlNO» MOUlFYi 
ETC.) FROM USER CUBUI. PROGRAMS* UNL OF THE CONSFUUENCES 
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IS THAT THE AUDIT TRAIL MUST BE SCANNED ONCE FOR EACH 
STRUCTURE THAT NEEDS TO BE RECONSTRUCTED, 

ONCE DMRONHECQVERY HAS PASSED THE DATA BASE MONITOR ALL 
ITS REQUESTS* IT l»OES TO EOJ WITHOUT WAITING FOR A REPLY 
FROM THE MONITOR. 



DOLLAR OPTIUNS 



THE INPUT TO SYSTEM/OMRQWRECOVERY IS A CARD FILE LABELED 
"CARD". 

THE PROGRAM HAS DOLLAR OPTIONS AS FOLLOWS! 

DEBUG DUMPS SCANNER ARRAY AND. IF THE STATFMENT IS 
ERKOR FREE. THE CONTENT* OF THE MESSAGE ARRAY. 

LIST IS OFF BY DEFAULT AND PRODUCES A LISTING OF 
THE INPUT CARDS IF TURNED ON. 

SINGLE IF SET, IT SINGLE SPACES THE LISTING. 

SYNTAX IF SET. THEN THE REQUESTS ARE NUT PASSED ON TO 
SYSTEM/DM6700. 

THESE OPTIONS MAY BE SET. RESET ANU POPPED. THE RUN MUST 
BE COMPLETELY ERROR FREE BEFORE ANY REQUESTS ARE PASSED 
ON TO SYSTEM/DM6700. 

DMPRINTIT 



9.1. 



DUPLICATED FILES 



IN THE CASE UF DM DUPLICATED ULES, DMPRINTIT WILL PRINT 
BOTH COPIES QF THL FILE. WHETHER THE OPTIUN "ALL" IS SET 
(I.E.. <DB NAME>/ALL) UR WHETHER A PARTICULAR STRUCTURE 
IS REQUESTED (I.E.. <0B NAME>/0004). A SINGLE COPY WILL 
BE PRINTED IN RESPONSE TO THE FOLLOWING TTPE OF InPUTJ 
<Uti NAME>/"0004#2" OR <0B NAME>/"0004# 1" ♦ 

INDICATION THAT DOPLICATED IS ON OR OFF IS PRINTED BOTH 
IN THE HFADING OF EACH FORMATTED STRDCTURE AND IN THE SDL 
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REPORT FUR THOSE STRUCTURES SUBJECT TU DUPLICATION 
(LINKS* LISTS AND RANDOM INDEX ARE NUT SUBJECT TO 
DUPLICATION). 



errors file 



9*1.3* 



A FURMAftEU CHART M THE ERRORS FILE (DM/<DB NAME>/ 
EHHORS) MAY BE OBTAINED WlTh THE FOLLOWING SYNTAX! <0B 
NAME>/ERRORS. IF THF.RE ARE NO WRITE OR READ ERRORS 
PERTAlNlNli TO THE NAMED DATA BASE* A MESSAGE WILL BE 
PRINTEU OUT TO THAT EFFECT. 

IF EKROR INFORMATION EXISTS* THEN THREE KINDS OF TABLES 
WILL BE PRINTEDJ 

1. F[JK EACH STRUCTURE WHICH CONTAINS tHRURS (BY COPY* 
IF DUPLICATED) THE FULLQWING INFORMATION IS 
PRINTED! STRUCTURE NUMBER OR "SDL", COPY NUMBER 
CIF PERTINENT)* DATE AND TIME OF THE FIRST ERROR* 
THE TYPE (WHETHER WRiTE OR READ) THE NUMBER OF 
ERRORS* ANU THE NUMBERS UF THE HO*S(AREAS) WHICH 
ARE IN ERROR. 

?. RECUNSTtUJCTION AND RESTORATION INFORMATION FOLLOWS 
EACH STRUC1URF WITH ERRORS. THIS INFORMATION 
DISTINGUISHES THOSE ROWS WHICH REUUIRE 
RECONSTRUCTION FRUM THOSE WHICH REQUIRE 
RESTORATION. 

3. A FINAL SUMMARY STATEMENT IS MADE WHICH NAMES THE 

AUDIT FILE WHICH precedes the date and time of the 

FIRST ERROR. 
BADROw check 



WITH THE IMPLEMENTATION OF THE ERRORS FILE* DMPRINTIT 
WILL NOW CHECK (IN FriRMATTED MODE ONLY) WHETHER OR NOT A 
RECORD WAS IN A BAD ROW (AREA)* THIS PREVENTS THE 
PRINTING OF GARBAGE INFORMATION. INSTEAD* THE MESSAGE 
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"HECORD IN BAD ROW" IS PRINTED. 

9.1.4 AUDITARCHIVE 

■•••• ■«■••■■•■•■■ 

A FORMATTED CHART OF THE AUDITARCHIVE (DM/<DB NAME>/ 
AUDITAKChIVE) MAY BE OBTAINED WITH THE FOLLOWING SYnTAXJ 
<Dd NAME>/AUUITANCHlVE. THE FILE IS REAO IN REVERSE 
ORDER AND PRINTS THE FOLLOWING INFORMATION! RECORD 
NUMBEH* DATE* TIME* AODIT SERIAL NUMBER* AND PACKNAME 
("PACK" IMPLIES SYSTEM RESOURCL DISKPaCK). 

9.1.5. AODIT REPORT IN SDL 

FORMATTED SDL NOW INCLUDES AUDIT INFORMATION ABOOT THE 
DATA BASE* IF AUDIT HAS BEEN TURNED ON* OMPRINTIT 
FORMATS THE FOLLOWING RECORD! NUMBER OF AREAS IN AUDIT 
FILE* WHETHER BEFORFIMAGES BIT IS ON OR OFF, NUMBER OF 
CONTROLCYCLES* WHETHER DATA BASflN-OSE BIT IS TRUE OR 
FALSE* THE AUDIT DEVICE* PACKNAME (IF THE DEVICE IS DISK 
PACK)* ANU THE AUDIT SERIAL NUMBER* 

9*2. OTHER CHANGES 
9.2.1* ALPHA-HEX MODES 

*• m * m •» ■• (•■M*ii«MaM **i -• • «• m 

THIS FEATURE PROVIDES FOR THt PRINTING OF DATA FILES IN 
THE ALPHANUMERIC MODF* THE FOLLOWING MODt CARDS ARE NOW 
POSSIBLEl ALPHA* NO ALPHA* ALPNAl* NO ALPHA1* HFX* NO HEX. 
BY DEFAOLT* OMPRINTIT WILL WORK AS BEFORE (I*E.« NO 
ALPHANOMERICS* ONLY HEX). 

ALPHA CAUSES THE ALPHANUMERIC EQUIVALENT OF THE DATA TO 
dE PRINTED ON THE RIGHT SIDE OF THE PAGE. ALPHA1 CAUSES 
THE ALPHANUMERICS TO BE PRINTEO BENEATH EACH HEX LINE. 
ALPHA AND ALPHA1 CAUSE BOTH THE ABOVE TO OCCUR. NO HEX 
ELIMINATES THE HEX LINE AND PRINTS ONLY THE ALPHANUMERICS. 
HEX RETURNS TO THE NORMAL MODE OF HEX OUTPUT ONLY. 

9.2.2* DISKPACK 
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CHANGES ENABLING OMRRINTIT TU HANDLE FILES ON DISK PACK 
HAVE HEEN MAUE. THF SDL NtPURT NOW INCLUDES THE DEVICE 
AND THt PACKNAME (IF THE FILE IS ON DISK RACK). 

FOR DMPR1NTIT TO ACCESS FILES STORED ON NAMED PACK WHERE 
THE PACK NAME IS NOT EUUAL TO THE DATA BASE NAME (FOR 
EXAMPLE. AUDIT FILES)* THE FOLLOWING "MODE" CARDS ARE 
USEDI "USEHPACK <PACKNAME>" AND "NO USEHPAtK" (TU RESET 
THE OPTION). 



y.2.3* ANYFILENAME 

THt CAPACITY TO PRODUCE A HEX DUMP OF ANY FILE (WITH AT 
LFAST A TWO-LEVEL TITLE) HAS BEEN ME IMPLEMENTED * THIS IS 
PARTICULARLY USEFUL IN PRINTING THE CONTENTS OF THE AUDIT 
FILES. 

V.2.4* DEAD LIST EVENTS 

DEAD LIST ELEMENTS ARF NO LONGER PKlNTED. 
9.2.5* CARDD TO CARD 

THE CARD READER FILE FORMERLLY KNOWN AS CARDD HAS BEEN 
RENAMED CARD FOR CONSISTENCY WITH OTHER PORTIONS OF THE 
DM SYS1EM. 

V.*. 6. "DISK" SYNTAX DE I MPLEMENT A T I ON 

THE NOISE WORU •'DISK" AS INPUT HAS BEEN DElMPLEMENT ED (I. 
£.. DISK <DB NAME>/0027 IS NO LONGER VALID). 

V.2.7. IMPROPER DATA ERROR 

AN ADUITIONAL ERROR MESSAGE WILL CATCH SOME OF THE 
POSSIBLE SYNTAX EHHORS OF THE USER (FOR EXAMPLE* FILENAME 
TOO LONG* USE OF DE IMPLEMENTED "DISK" SYNTAX* MISSING 
SLASH). 

V.*.8. SDL REPORl 
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SEVERAL AUDITIONS AND MODIFICATIONS HAVE BEEN MADE TO THE 
SDL REPORT. 

1* IF THE POPULATION OF A SET MAS * (I.E.* 

VARIABLE)* THFN MAXIMUM POPULATION WILL PRINT AS 
"VARIABLE" INSTEAD OF "NOT SPECIFIED". 

2. "RANDOM INOEX" FOLLOWED BY "PRESENT" OR "NONE" 
REPLACES "PRIMF INDEX" WITH "RANDOM" OR "NONE". 

3. DEVICE FIELDS ARE NOW INDICATED UY THE WORD 
MNEMONIC <I.E»» DISK OR OISKPACK VERSUS 1 OR 17) 
RATHER THAN BY INTEURS AND HAVE BEEN INCLUDED 
WITH EACH STRUCTURE RELATED TO A DEVICE* 

4. LINK COUNT ITEM NUMBER AND THE UUNT-BLOCK-THIS- 
FILE BIT ARE RFCENT ADDITIONS TO THE SDL REPORT ON 
A FILE* 

-..:.. ....... Z .I... I- inoek^s^quenti^al 

THE UNALIGNED COLUMN PROBLEM FUR THE INDEX-SEQUENT lAL 
TABLES HAS BEEN CORRECTED* 
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THE CARD FILE FOR SYSTEM/DMPRINTIT HAS BEEN CHANGEU FROM CARDD TO 

CARD* 

EXAMPLE! 

?run system/dmprintit 
?data card 



* 
* 

VEND 
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DCALGOL 



O0U9 DCALGOL - DCALGOL QUEUF ATTRIBUTES - 01-15*73 

SIMILAR TO TASh AND FILE ATTRIBUTES* QUEUE ATTRIBUTES MAY BE 
APPLIED TO ANY QUEUE OR QUEUE ARRAY ELEMENT. ILLEGAL ATTRIBUTE 
HE>ERENCES» SUCH AS ATTEMPTING TO SET A READ-ONLY ATTRIBUTE* WILL 
RESULT IN A SYNTAX ERROR OR RUN-TIME ERRUR MESSAGE DISPLAYED ON THE 
CONSOLE AND ENTERED IN THE SYSTEM LOU. IN THE LATTER CASE. THE 
PROGRAM KILL NOT BE TERMINATED. THE FULLOWlNG IS A DESCRIPTION OF 
QUEUE ATTRIBUTES AND THEIR MEANINGSI 

1. GACTIVE. BOOLEAN. READ/WRITE. 

THIS ATTRIBUTE RETURNS THE CURRLNT ACTIVE STATE OF A 
QUEUE. SETTING THIS ATTRIBUTE TRUE EXPLICITLY 
ACTIVATES THE QUEUE. SETTING IT * ALSt DEACTIVATES THE 
QUEUE AND FLUSHES ANY MESSAGES CURRENTLY IN THE QUEUE. 
THIS ATTRIBUTE IS INITIALLY FALSE. 



2. qkemorylimit. integer. read/write. 

this defines the maximum value that [he attribute 
ghemorysize (explained below) may achieve be^re disk 
Tanking is invoked. the maximum value of this 
attribute is ?**16-1 ur 65535. setting this attribute 
tc zero causes all messages to be tanked. qmemohylimit 
may be changeu at anytime with the following results* 

1. IF THE VALUE IS INCREASED. NO ATTEMPT WILL BE 
MADE TO DETANK ANY MESSAGES IN ORDER TO RAISE 
QMEMORYSWE TU THE NEW LIMIT. 

2. IF THE VALUE IS DECREASED. NO ATTEMPT WILL BE 
MADE TO TANK ANY MESSAGES IN ORDER TO LUWER 
QMEMORYSIZE TO THE NEW LIMIT. 



00H9 DCALGQL - DCALGQL QUEUE ATTRIBUTES - 01-15-73 
3* QPEHQRYSIZE* INTEGER. RFAD-ONLY. 
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this attribute keflects the curhent sue in words df 

the resident portion of a queue* this is the sum of 

the sizes of each complete message area in the queue 

Plus one wuro ca link word) for each message. 

4. qsue. integer. read-only. 

qsize is the sum of thf sizes 01- each message in the 
queue both in memory and on disk. this includes the 
message areas only and not the message link words. 

5. QMESSAGECOONT. INTEGER. RFAD-ONLY. 

THIS IS THE TOTAL NUMBER OF MESSAGES IN THE QUEUE* 
INCLUDING ANY WHICH HAVE REEN TANKED. 

6. QUSERCQUNT. INTEGER* READ-ONLY. 

THIS REPRESENTS THE NUMBER OF InDEPENUEnT USERS OF A 
QUEUE. QUSERCOUNT IS INCREASED bY ONE WHEN THE QUEUE 
IS PASSEU "BY VALUE" TO A PROCEDURE* AND DECREASED BY 
ONE WHEN EXITING THAT PROCEDURE. QUSERCOUNT CAN ALSO 
BE ALTERED WITH THE ATTACH fUwCTIUN. GIVEN THE 
EXAMPLE! 

ATTACH(Ql.Q2)t 

Ql. QUSERCOUNT IS REDUCED RY ONE 
Q2. QUSERCOUNT IS INCREASED BY ONE 

7. QTANK. BOOLEAN* READ/WHITE. 

QTANK IS THUE IF A PORTION 0* THE QUEUE IS CURRENTLY 
RESIDENT ON DISK, AND IS FALSE IF THE ENTIRE QUEUE IS 
IN MEMORY. SETTING THIS ATTRIBUTE TO TRUE CAUSES ALL 
MESSAGES CURRENTLY IN MEMORY TU BE TANKED TO DISK. 
SETTING QTANK TO FALSE IS AN ERROR* 

8* QINSERTEVENT. EVENT. READ-ONLY. 

THIS EVENT IS CAUSED EACH TIME A MESSAGE IS INSERTED 
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INTO A QUEUE VIA THE INSERT OR COMBINE FUNCTION* AND IS 

reset hhen the last message is removed from the queue 
via the remove, hold ok flush function* this event may 
he used as any other event. it should be noted that 
utilizing qinsertevent ts far more efficient than 
invoking the holo intrinsic, the following code 
Example is equivalent to holdcmsg»q)i 



WHILE REMOVE(MSG#Q) ■ 00 
wAITCQ. QINSERTEVENT)* 

IT IS NOk POSSIBLE TO CONSTRUCT MORE COMPLEX HOLD 
STATEMENTS! 

CASE WAITC(2)»Q.QINSERTEVENT#E)-1 OF 
BEGIN 

> % 2 SECONDS HAPPENED 

S !■ REMOVE(MSG»Q)l 

; X EVENT "E" HAPPENED 
ENDI 

9. QHEAOSIZE. INTEGER* READ-ONLY. 

THIS IS THE SIZE OF THE URST MESbAGE IN THE QOEOE# OR ZERO 
IF THE QUEOE IS EMPTY. 
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OCPPR06EN 



00161 OCPPKOGEN - INHIBIT SYNC EDIT - 11-12-72 

THIS PATCH ADOS A NEW BIT VARIABLE* "SYNCS". WHICH MAY BE SET* 
RESET. OR TESTED. THE BIT DESIGNATED IS BIT ZEHO QF THE TYPEFIELD 
(THE INHIBIT SYNC EDIT BIT). NOTE* ASYNCHRUNOUS LINE REQUEST SETS 
WILL TREAT BIT TESTS AS FALSE AND WILL NO-OP BIT SETS OR RESETS FOR 
THIS BIT VARIABLE. 



U0192 DCPPROGEN - DIALOUT ERROR RESULTS - 12-08-72 
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FOR ERROR RESULTS AS A RESULT OF DIAL UUT REQUESTS. THE FOLLOWING 
INFORMATION IS GIVENI 

1* MSGC01. [391161 CONTAINS AC AI AT TIME OF DIALOUT 
ERROR. 

2. MSGtl ]. [39183 CONTAINS THF REASON FOR TERMINATION. 

1 «> DLO TRUE 

2 *> ERROR TRANSMITTING DIGITS 

3 ■> ERROR TRANSMITTING EON 

4 ■> TIME OUT WAITING FUR COS -> TRUE 

5 »> UNEXPECTED INTERRUPT WAITING FUK CUS -> TRUE 

6 »> UNEXPECTED INTERRUPT WAITING FUR CC •> TRUE 

7 ■ > TIME OUT WAITING FUR CC -> TRUE. 
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DCSTATUS 



U02b0 



UCSTATUS - SYSTEM DCSTATUS - 02-19*73 



lNlHUUUCTlQN 

tml system/dcstatus phouham allows une tu perform an analysis of 
THt CUHKEnT RUN-TIME STATE OF THE d6f00 datacdm subsystfm* the 
PHUbRAM MAKFb USE OF THt DC S YSTFMT A8LES INTKlNSIC TO GAIN ACCESS TO 
UdktS MAINTAINED BY THE MCP (AND DCP)» AND TO PERFORM A RUN-TIME 
SNAP SHOT ANALYSIS OF THEM. AS SUCH* THE PHOGRAM FURMS AN EXAMPLE 
UF THE WAY IN WHICH THE UCSYSTEMT ABLES INTRINSIC MAY BE USED* 

SELECTION OF OUTPUT OPTIONS 



IHl PHOGRAM MUST dE SUPPLIED WITH AN UPTIUN LIST WHICH SPECIFIES 
THUSE ELEMENTS OF THE UATACOM SUBSYSTEM WHICH ARE REQUIRES TO BE 
ANALYZEO. THE OPTIONS ARE SPECIFIED ON A HIERARCHIAL bASIS»l.E. 

IA) ANALYSIS FOR A STATION ONLY. 

(B) ANALYSIS FOR ALL STATIONS ON A LINE. 

(C) ANALYSIS FOH ALL LINES ON A CLUSTEK. 
CD) ANALYSIS FOR ALL CLUSTERS ON A UCP. 
(E) ANALYSIS FOH ALL DCP S 

THE HIERARCHIAL ITEM IS SELECTED BY USING JHE KEY WORDS ALL* DCP* 
CLUSTER* LINE* OR STATION, EACH HIGHER ORDER ITEM IS INCLUSIVE OF 
ALL LOWER ORDER ITEMS. THUS IF A CLUSTER IS SPECIFIED* THEN THE 
ANALYSIS IS PERFORMED FOH ALL STATIONS ON ALL LINES UN THAT CLUSTER. 

ANALYSIS OUTPUT FHOM THE PROGRAM WILL NORMALLY BE SENT TO A SITE 
LINE PRINTFH HOWEVER* THE PROGRAM WILL DETECT IF THE PRINTER FILE 
IS LABEL FUUATEU TO HEMUTE . FOR THIS CASE, THE OUTPUT FORMAT IS 
MUUIFIEU SO THAT THE OUTPUT wILl FIT A 72 CHARACTER LINE WID1H. 

SYNTAX OF OPTIONS 
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<UPTI0NS>U*<CJPTI0N LIST> 

<QPTI0N LIST>I la<SU8SYSTEM SPtt IF iCA I 1UN>/ 

<SUBSYSTEM specifications <0PTI0N LIST> 

<SUBSYSTFM SPEC lFICAUON> >» « ALL/<UCP UES1GNATE>/T ABLES/ 

<CLUSTER UESIGNAlE>/<HNE DESIGNATED 
<STATI0N DESIGNATE>/<TERMINAL UESIGNATE> 

<UCP DESlGNATfc>lt«UCH<OCP NUMBEH> 

<0CP NUMBER> ItxUNSlGNEU INTEGEK> 

<CLUSTER DESIGNATES »«CLUSTER <UCP NUMBER>#<CLUSTER NUMBER> 

<CLUSTER NUMBEH>t t«<UNSl6NE0 INTEGERS 

<LINE DESIGNATES I«LINE <UCP NUMBER> * <LINE NUMBERS 

LINE <DCP NUMBER> » <CLUSTER hUMBEM> » <LINE NUMBER> 
<LlNE NUMdER>» I«<UNS1GNED INTEGER> 

<STATIQN DESIGNATES!* STATION <1SN> <NOL OPTIUN>. 

<1SN »« <EMPTY>/<LUGICAL STATION NUMBER> 

<N0L QPTIONSt* <EMPTY>/NOL 

<TERMINAL DESIGNATES!. TERMINAL <REMUTE TYPE INDEX> 

<HEM0TE TYPE INOEX>»«" <EMPTY>/<UNS1GNED lNfEGER>. 

<TABLES> lt« TABLES 

SEMANTICS] 

<TABLES>QPTIQN 

THIS WILL PRODUCE A RAW HEXAOECIMAL DUMP 0^ THE OATACQM CONTROLLER 
ANU CICP LINE AND STATION TABLES. TAG BITS ARE OMITTED FROM THE 
DUMP. 

<ALL>CIPTI0N 



THIS WILL PRODUCE A COMPLETE ANALYSIS Of THE OATACOM NETWORK. THE 
TABLES ARE DUMPED* AN ANALYSIS OF THE LINE AND STATION TABLES 
TOGETHER WITH AN ANALYSIS UF EACH REMU1E TYPE. ALL UTHER OPTIONS 
ARE SUBSETS OF THIS OPTION. 

<DCP DESIGNATE>OPTION 
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iMiS WILL PRODUCE A PULL ANALYSIS Of THE DESIGNATED DCP S LINES AND 
STATIONS. 

<CLUSUK UF.SIGNAIE>UPTIUN 

THIS WILL PRODUCE A FULL ANALYSIS OF THE DESIGNATED CLUSTER S LINES 
ANU STATIUNS. 

<LInE UtSlGNATE>UPriUN 

THIS MILL PHUOUCE A F ULL ANALYSIS OK THE DESIGNATED LINE AND ITS 
ST Ml IUNS. 

<STaTION UESlGNATE>OPTION 

IF <NUL QP1IUN> IS EMPTY, THEN AN ANALYSIS OF THE TAbLES MAINTAINED 
BY THE DATACOM CONTHOLLEK IS PRODUCED. IF <LSN> IS EMPTY. THEN THE 
ANALYSIS IS PRODUCED Ft)R ALL STATIONS. THIS WILL INCLUDE THOSE 
STATIUNS WHICH ARE NUT CURRENTLY ASSIGNED TU A LINE* AND WILL THUS 
NOT dE ANALYZED UNDER THE DCP, LINE OR CLUSTER UPTIUNS. IF NDL IS 
SPECIFIED* THEN THE ANALYSIS IS PRUDUCED FROM THE NETWORK 
INFORMATION FILE* RATHER ThAN FROM IN-CORE TABLES AND THE OCPCODE 
FILE* AND CONTAINS THE NDL DFCLARATIUNS FUR THAT STATION. THESE 
MAY NOT HE THE CURRENT ATTRIBUTES uF THE STATION, BECAUSE 
MODIFICATIONS MAY HE MADE AT RUN-TIME VIA DCWRiTES. 

<TERMINAL UFSH > NATE>OPTION 

IHL NDL SPECIFICATIONS UF TERMINALS IS PRODUCED bY THIS OPTION. 
THIS INFORMATION IS RETRIEVED FROM THE NETWORK INFORMATION FILE. 

THE <REMOTE TYPE InDEX> IS THE INDEX USED BY THE DATACOM CONTROLLER 
INTO A TABLE WHICH DESCRIBES EACH TERMINAL SPECIFIED IN NDL. IN 
PHYSICAL TERMS, TERMINALS ARF NUMBERED IN THE SEQUENCE IN WHICH 
THEY APPEAR IN THE NDL SPECIFICATION UF THE NETWORK. 

RUNNING INSTRUCTIONS 



THE PRUGRAM IS CUMPILED AS A PROCEDURE WITH AN ARRAY AS A PARAMETER. 
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THE OPTION LIST IS PASSED 10 THF PROGRAM VIA THIS ARRAY. 
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HPILE THE PROGRAMI- 



COMPlLE SYSTEM/OCSTATUS DCALGOL LIBRARY 

JCALGOL FILE TAPE (TITLE » SYMBUL/DCSTATUS > 

JATA 

MERGE INSTILLATION 

SET LEVEL 2 

iE S CARDS) 

COTE TME PROGRAMt- 



XECUTE SYSTEM/DCSTATUS ( "<UPTIQNS>" ) 
NO 

ESl 

• • m 

EXECUTE SYSTEM/OCSTATUS ("LINE 0» 2> CLUSTER 0# M") 
NO 

"(ILL CAUSE OUTPUT TO BE SENT TO A SHE LINE PRINTER. 

EXECUTE SYSTEM/DCSTATUS ("ALL") 
ILL LINE (TITLE « M332, KTNO * REMOTE) 

NO 



THIS HILL CAUSE (HE OUTPUT TU BE SENT TO A REMOTE STATION NAMED 
M3J2. 

MISCELLANEOUS 1NF0RMATIUN 

SYbTEM/UCSTATUS MAY BE CALLED DIRECTLY ► ROM SYSTEM/MCSII USING THE 
UP CONTROL STATEMENT. OUTPUT MAY BE DIRECTED TU A SITE LINE 
PRiNTER OR TO THE REMOTE DEVICE UN WHICH THE COMMAND WAS ENTERED. 

SYNTAX. 



IF SITE IS USED. ANY NUMBER OF COMMANDS MAY BE ENTERED 
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MMuLTANEOuSLY OUTPUT BEING DIRECTED TO A SITE LINE PRINTER. IF 
KEMOTE IS UStU. THEN UUTRUI WILL BE DIRECTED TO THE REMOTE DEVICE 
UN WHICH THE OP COMMAND WAS ENTEREO. IT MUST BE NOTED THAT IN 
REMOTE MODE. ONLY UNE CUPY UF DCSTATUS MAY bE RUN AT A TIME* CARE 
SHUuLU BE TAKEN WHEN USING THE REMOTE OPTION, AS SYSTEM/DCSTATUS 
WILL NECESSARILY PRUDUCE VOLUMINOUS OUTPUT FOR THE ALL. UCP AND 
CLUSTER OPTIONS. ANU IT IS NOT POSSIbLE TO TERMINATE A PROGRAM FRQM 
A HEMOTE WHEN USING S YSTEM/MCSI I . 

IT SHULLD BE NOTED THAT THE OATACOM STATUS INTRINSIC DOES NOT LOCK 
THL VARIOUS MCP TABLES THAT IT ACCESSES. IT IS THEREFORE POSSIBLE 
THAT THE CUNTENTS OF THE TABLFS MAY CHANGE WHILE THE INTRINSIC IS 
HUNNING. IN PARTICULAR. SOMF FLAGS MAINTAINED IN THE TABLES ARE 
SET IN A TRANSIENT MANNER. IT WILL THEREFORE BE A COINCIDENCE ONLY 
THAT A HUN OK DCSTATUS CATCHtS THEM SET. 

SYJjTEM/DCSTATuS WILL ONLY RETURN MEANINGFUL INFORMATION IF UATACOM 
IS INITIALIZED. IF DATACOM IS NOT INITIALIZED THEN UCSTATUS OUTPUT 
WILL INDICATE SUCH A SITUATION. 

if » HOWEVER SYSTEM OPTION NUMBER 12. AUTUUC IS SET THUE. THEN A RUN 
UF SYSTEM/DCSTA1US WILL CAUSE AN IMMEDIATE INITIALIZATION OF THE 
UATaCQM TABLES. AND INFORMATION RETURNED WILL BE MEANINGFUL. USING 
THIS MQOE UF UP-EKATIUN. NO OCP S WILL BE FIRED UP» AND TO START 
UAIACOM ACTIVITY A FURTHER DC tDCP NUMbERl MUST BE ENTERED ON THE 
SPU. NOTE ALSO THAT THE OATACUM TABLES WILL REMAIN INITIALIZED 
AFTER THE DCSTATUS RUN. TO RETURN THIS MLMORY ARtA TU THE SYSTEM. A 
UCH MUST QtL FIRED UP. AND THEN nS-ED. 
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UOUO ESPOL - EVENTS IN ESPOL - 10-16-72 

AN EVENT MAY tilL DECLARED "BY VALUE" IN A QUEUE DECLARATION* IN 
WHiCh CASE THE EVENT ITSEL^ (A DOUBLE PRECISlUN WORO) IS INSERTED 
IN THE QUEUE STRUCTURE. 

THt EVENT INTRINSIC MAY BE USED ANY PLACE IN THE SYNTAX THAT AN 
EVENT MAY BE USED. THE SYNTAX JSl 

EVENT(<SUtiSCRIPTED VARIABLES 

THE -cSUBSCRIPTED VARIABLE> MAY BE UF TYHf >»OHD# REAL* BOOLEAN* OR 
DOUBLE. THIS FUNCTION CAUSES AN "XTND" TO BE DONE ON THE INDEXED 
DESCRIPTOR. 



D0I66 ESPOL - NON-SAVE DECK nUTPUT - 10-23-72 
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this patch allows nun-save segments and arrays to be punched via 

THt t DECK OPTION. 

THESE CARDS (IN STACKER 2) ARE PUNCHED IN EBCDIC* WITHOUT TAGS* UP 
TO 12 WOHOS/CARDS. THEY ARE PRECEDED BY A WURD WHICH HAS MOM-ADDR. 
IN tll5ll6j» INDEX OF THE FIHST WORD IN 1311163* LENGTH OF THE CARD 
IN (431121* AND 4"F" IN (47)41. 



D0241 ESPOL - ESPOL DUL.LAR OPTIONS - 11-06-72 

tSPQL DOLLAR OPTIONS MAY BE SET EQUAL TO AN <OPTIUN EXPRESSIONS 
PREVIOUSLY. ONLY USER OPTIONS, OPTIONALLY PRECEDED BY A "NOT"* WERE 
RECOGNIZED. 

THE SYNTAX FOR THIS IS AS FOLLOWS: 
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SET <OPTION> « <OPTION EXHKESSlON> 
<OPTlON EXPRESSIONS «» <OPTION SECtfNDARY>/ 

<0P1IUN EXPRESSIONXBGOLEAN OPERATOH> 
<OPTlON bECUNDARY> 
<OPriON SECONUAHY>t l* <QPIION PR I MAR Y>/NUT <[)PTI0N PRIMARY> 
<OPUON PKIMAHY> »l» <OPTION>/ 

<COMPlLE TIME VAKlAbLt> 

<HELAUUNAL OPEH ATORxunSIGNED INTFGER>/ 

(<0PTI0N EXPRESSIONS 
<0HUON>tl« <STANOAKO OPT ll)N>/<USE R QHTIUN> 

FOR EXAMPLE! 

$ bET KLUDGE » EXPERIMENTAL OR OPTM ANU NOT FUNNY 
*SET OMIf ■ NOT(OPTM EGV SUPEROP) 

IHE STANDARD RULES OF PRECEDENCE F OR bUOLEAN OPERATIONS ARE 
UbSEHVEo. THE RELATIONAL OPERATORS MObl BE THE SPECIAL CHARACTER 
VARIETY, THE "DECLARATION" AND USE OF USER OPTIONS ARE NO LONGER 
ASbOClATED WITH THE BLOCK STRUCTURE OF ESRUL. "NO OPTION ACTION" S 
CAmdS* I.E.. * CARDS WHICH USED TO CAUSE STANDARD OPTIONS TO BE 
CLEARED. NOW CAUSE ALL OPTIONS TO BF CLEARED. 



U0242 ESPOL 



PROCEDURE DtCLARATION - ll»06-7'2 



THE SYNTAX FOR CONTROLLING THE SEGMENTATION AND STATE OF PROCEDURES 
MA* BEEN EXTENDED. ON PAGE 7-29 OF THE JUNE 1V72 B6?00/B7700 ESPOL 
INFORMATION MANUAL* REVISE THE SYNTAX OF PROCEDURE DECLARATION TO* 

<PRQCEUURE DECLARATION^ »• <SAVE PART><PROCEDURE 1 YPE>PROCEDURE 

<PROCEDORE HEADINGXPROCEOURE BODY> 
<bAVE PAR f > t t« <EMPTY>/bAVE/SAVE 1/<RESIDENCY PARTxSTATE PART> 
<RESIDENCr HAHT>ll" <EMPT Y>/RESIDt NT/ INI TI ALIZAT ION 
<STATE PART>tl» <EMPT Y>/CUNTROL 

IHE "RESIDENT" DECLARATOR lNHlRlTS SEGMENTATION. "INITIALIZATION" 
IMPLIES RESIDENCY IN SEGMENT ONE. IHE RESIDENCY PART> HAS NO 
EFFECT ON STATE. THUSt 



00242 ESPOL - PROCEDURE DECLARATION - 11-06-72 PAGE l29 



"SAVE" IS EQUIVALENT TO "RESIDENT CONTROL*' 

"SAVE 1" IS EOUIVALENT OT "INITIALISATION CONTROL" 



DQ243 ESPOL - EXPONENTIATION & MULT1PL1CATN - 12-04-72 
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TML SYMBOLS FOR EXPONENTIATION AND MULTIPLICATION HAVE BEEN CHANGED 
TO THOSE OF ALGOL. ONLY THE MEANING 0* THE ASTEKISK HAS BEEN 

CHANGED* THE OLD MULTIPLY SIGN IS STILL ACCEPTED FoR MULTIPLICATION. 
THE NEW DOLLAR OPTION "OLDEXPO" MAY BE USED TO CAUSE THE ATERISK TO 
BE RECOGNIZED AS THE EXPONENTIATION SYMBOL. 

SYMBOL MEANING 

a a « a) a> a> a a> a> a « * ai 

» MULTIPLICATION 

* MULTIPLICAUUN (IF OLDEXPO IS RESET) 

* EXPONENTIATION (IF OLDEXPO IS SET) 
** EXPONENTIATION 



00244 ESPOL - THE WOHD INTRINSIC "STF>" - 12-04-72 
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A LABEL WHICH HAS HAD A PCw GENERATED FUR IT CAN bE USED AS AN 

ARGUMENT IN THE STFF INTRINSIC. 



U0Z45 ESHOL - POINTER EXPRESSIONS - 12-11-72 
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THfc. DEFINITION OF <PUINTEH PARAMETERS UN PAGE 9"20 OF THE JUNE 
1972 ESPQL LANGUAGE MANUAL SHOULD BE EXPANDED AS FOLLOWS. 

<P0INTER WARAMETERS>l l« <ARRAY PART>/<ARRAY PART>» 

* <CHARACTER S UE>/<STR I NG> 
<CHARACTER SIZE>»l« 4/6/fl/*/<H0INTER EXPRESSlON> 

THE <STRlNG> MUST HE LONGER THAN 48 BITS. ITS MAXIMUM INTERNAL 
CHARACTER SIZE DETERMINES THF CHARACTER SIZE 01- THE READ-ONLY 
POINTER. 



002/15 ESPOL - PUINIFK EXPKESSIUNS - 12-11-72 
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IHt ^POINTER EXPRESSION> PART OF <CHARACTER SIZE> IS USEFUL FOR 
SETTING THE CHARACTER SIZE Of ONt POINTER TO THAT UF ANOTHER* THIS 
FEATURE HAS BEEN AVAILABLE FOR SOME TIME* THOUGH UNDOCUMENTED. 



UU270 ESPOL • WRITEAFTEH DOLLAR OPTION - 03-07-73 



A "wHlTEAFTER" OOLLAR OPTION HAS BEEN PROVIOEO IN ESPOL* IT IS 
INftNOLO TO BE USEO FOR ESPUL INSTALLATION INTRlNSICS THAT ARE 
CALLtU BY FORTRAN PROGRAMS. TF THE UPTION IS SET* ALL NON-OIRECT 
JL/U5 TO PRINTER ULES WILL RE OONE IN THL FORTRAN MANNER* I*E.» 
SPACING IS OONE BEFORE PRINTING. CStt 00253 FUR ALGUL.) 
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ESPOL INTHINSICS 



U0150 ESPOLINTNN - NEW FORMATTER - OV-05-72 
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THIS NOTE REPLACES P0505 IN THE MAKK II. 3 SOFTWARE IMPROVEMENTS 
DOCUMENT AND REPLACES 0012V IN THE MARK II. 2 SYSTEM MISCELLANEA. 

A NEW SET OF FORMATTING INTHINSICS HAS BEEN WRITTEN FOR FORTRAN, 
WITH NECESSARY CHANGES MADE IN THE FORMATTER. FREEFULU INTRlNSKS. 
blNAHV I/O INTRINSIC. AND FORTRAN COMPILER. THESE CHANGES HAVE 
BEEN MADE IN A MANNER THAT SHOULD BE TRANSPARENT TO USFRS. BUT 
RESULT IN FASTER I/U EXECUTIUN. 

IHt GREATEST IMPROVEMENT SHOULD BE NOTICED IN FORMATTED I/O. 
BINARV I/O PREVIOUSLY WAS CHANGFO TO DECREASE EXECUTION TIMF. MORE 
INTENSIVE STUDY WILL BE MADE Of THE FHEEFIELU INTRINSIC ON FUTURE 
RELEASES. IN ADDITIUN. IT IS ANTICIPATED THAT ALGOL WILL BE 

AOUPTEO TO THE NEW I/O FORMATTING INTRINSIC UN FUTURE RELEASES. 

THE FORMATTING INTHINSICS ARE REDESIGNED TO BE LIST DRIVEN RATHER 
THAN FORMAT DRIVEN. STURAGE REQUIRED IS TAKEN IN THE STACK 

WHENEVER POSSIBLE. THERE ARF SEPARATE INTHINSICS FOR INPUT AND 

OUTPUT BECAUSE THE INTHINSICS ARE SPECIFIC TO FORTHAN AND BECAUSE 
THEY ARE SPECIALIZED TO INPUT OR OUTPUT. THE NUMBER OF TEST 

DECISIONS REQUIRED HAS BEEN SIGNIFICANTLY REDUCED. 

ON INPUT! 

«■ ■• •■■«■■ 

it DOUBLE PRECISION IS FULLY IMPLEMENTED FOR ALL FORMAT 
PHRASES. 

2. "0" AND »Z" FORMATTING IS DUNE MS IT IS IN THE DATA 
STATEMENT. 

3. IN -I«,"0"»"Z"#"D">"E". AND *F" FORMATS, LEADING- 
TRAILING AND IMBEDDED SPACES ARE CONSIDERED ZEROS ON 
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INPUT. 
4. THE MEANING OF THE ERROR NUMBER* FOR INPUT AHEt 

FORMAT EHRUR 

201 - INVALID DATA FOR "I" FORMAT. 

20? - INVALIU UATA FOR "0" FORMAT. 

203 - INVALIU UATA FOR "Z w FORMAT. 

204 - INVALIU UATA FOR "I" FORMAT. 

205 - INVALIU UATA FOR »E M »"F"# OR "0" FORMAT* 

206 - MISSING DECIMAL PLACES SPLC IF I C AT I ON- "V" FORMAT 

207 - MISSING WIDTH SEPC IFICAT IUN-" V m FuRMAT 

2oa - invalid phrase cnuE-"v" format 

20S> - input valuf too large fur list element 

210 - ATTEMPTEU TO EXCFtU THE ENU OF THE INPUT RECORD 

5« IF A UATA-ERROR LAdEL IS PRESENT ON THE READ STATEMENT 
THE PROGRAM WILL NOT HE DSEU» bUT WILL CONTINUE TO THE 
DATA-tRROH LABEL WHERE THE FORMAT ERROR NUMBER WILL BE IN 
FIELDL2418] UF THE I/U RFSULT WURU. 

ON OUTPLU 

THE NEW FORTRAN UUTPUT FORMATTER HAS A FEW FEATURES AND AREAS OF 
DIFFERENCE FROM THE CURRENT II. 3 FURMATTER. THEY ARE AS FOLLOWSl 

1. CARRIAGE CONTROL FEATURE! 



1HE 11.3 FURMATTEH wHtN COMPILED WITH THE NEW DOLLAR OPTION 
"SHIFTF IRSTCHARACTEH" SET PROOUCES AN INTRINSIC WHICH BEHAVES 
EXACTLY AS THE II.? FORMATTER WITH RESPECT TO CARRIAGE CONTROL (SEE 
PAliE 12-18 OF THE FORTRAN REFERENCE MANUAL 5000456 FOR A CUMPLETE 
U1SCUSSSI0N OF II.? CARRIAGE CONTROL). 

1HL II. 3 FORMATTER WHEN C0MP1LFU WITH THIS NEW UOLLAR OPTION RESET 
C I T IS RESET bY DEFAULTS PRODUCES AN INTRINSIC WITH SLIGHTLY 
U1FFLRENT CARRIAGE CQNTRULt 

A. THE FIRST CHARACTER UF THE BUFFER WILL NEVER BE PRINTED* 
HOWEVER* IT WILL bE 1NTERPRETE0 EXACTLY AS IN II»2 WITH 
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RESPECT TU CARRIAGE CUNTRUL EFFECT. 

fa. THE 11*3 FORMATTER WILL ALWAYS ALLOCATE AN EXTRA 
CHARACTER OF BUFFER WHEN GOING TU PRINTER OR PRINTER 
BACKUP* THUS* A 2? WORD EBCDIC BUFFER HAS 133 CHARACTERS. 
THE FIRST CHARACTER IS NFVER PRINTED. AND THE SECOND THRU 
133RD CHARACTERS COMPRISE 1 ME PRINT LINE* STARTING AT 
PRINT PUSITION ONE. THE UNPRINTEW FIRST CHARACTER 
CONTROLS THE PRINTER CARRIAGE IN THE SAME MANNER AS II. 2. 

-I 111- £2 D £ w :£ lJ1 L F --E NC ^ s, 

THE II.3 FORMATTfN PRODUCES E + XX AND U + XX FOR THt EXPONENT PART 
INSTEAD OF E XX AND D XX* WHEN USING THE E AND D FORMATS* 
RESPECTIVELY. ALSO* THE ^EhO (0) TO THE Lfc>T OF THE DECIMAL POINT 
HAS BEEN DELETED* AND THUS THE FIELD WIDTH REQUIREMENTS ARE REDUCED 
BY ONE CHARACTER. FINALLY* THE ONLY DIFFERENCES BETWEEN EW.D AND 
DW.O ARE THAT ONE USES AN M E" AND THE OTHER, A "D"» AND THE EW.D 
RUNS FASTER FOR SINGLE PRECISION VALUES. 

mi « - « S b - -5£™I2£ 2!-£ L IH 21 AL t - 0R tI-ISi 

DOUBLE PRECISION VALUES ARE NOW HANDLED CORRECTLY BY ALL FORMAT 
SPECIFICATIONS. IN PARTICOLAR, 

A, FOR D.P VALOES EDITED UNDER THE LW SPECIFICATION* THE 
LOWER OHDER BIT of THE MORE SIGNIFICANT WORD IS USED TO 
DETERMINE THE TRUTH VALUE. 

B. THE AW AND CM SPECIFIERS CAN NOW EDIT UP TO 12 CHARACTERS 
USING D.P. VALUES. FOR EXAMPLEI 

DOUBLE PRECISION Ul 

DATA U1/"ABC0EFGHIJKL"/ 
10 FORMAT (1X*AW) < 

PRINT 10*01 
WOULD YIELD 

ABCOEFGHIJKL IF W .■ 12 

ABCDEFGH IF N M 
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AH IF N • Z 

ABCUEFGHUKL IF W « 15 
AND THE USE OK Cw INSTEAD UF AM IN THE AbOVE WOULD YIELD 



ABCOEFGHIJKL 

EFGHIJKL 

KL 

AbCUEKiMIJKL 



IF H * 12 

IF W « 6 

IF H • 2 

IF M » lb 



01 IS REPRESENTED INTERNALLY AS« 



HIGH HALF 
"AbCDEF " 
"OUABCUEF" 



LOW HALF 
"GHlJKL" 
"OOGHIJKL" 



CHARACTERSlZE 

EBCDIC 

BCL 



THE Qw AND *W SPECIFIERS CAN NOW bE USEU TO DISPLAY A O.P. 
VALUE - bUTH WOKK FROM RIGHT TU LEFT ON THE D,P. VALUE. 
FOR EXAMPLE. 016 AND 1X2 WOULD EDIT THE LOW HALF OF A O.P. 
VALUE. WHILE 032 AND Z24 WOULD EDIT BOTH HALVES, AND 020 
AND lib WOULD EDIT THF LOWER UHUER 1* BITS OF THE HIGH 
HALF AND THE ENTIRE LUW HALF. 

D.P. VALUES EDITED BY THE EW.D AND DW.D SPECIFIERS CAN 
HAVE ?» 3. OR 5 DIGIT EXPONENTS. THE MINIMUM NUMBER OF 
DIGITS REQUIRED IS USED. FOR EXAMPLE* THE SPECIFIER £21. 
10 WOULD YIELD (FUR SUITABLE INTERNAL VALUES)* 

-»123456769lE-8a 

.9876543210*876 

.3141529653E+09132 

THE SAME HOLDS FOR D21.10. WITH A "0" USED * OR THE "E". 



H. -0 DIFFERENCES! 



fHt SIGN OF A VALUE IS CONSIDERED POSITIVE IF THE MANTISSA PART IS 
ZEKfl. REGARDLESS OF THE CONDITION OF THE SIGN BIT. A MINUS MAY 
BE OUTPUT, E.G.. -0.0000. bUT THIS ONLY INDICATES JHAT THE FORMAT 
SPtClFlER DID NOT ALLOW FUR THF DISPLAY OF ALL SIGNIFICANCE. E.G.. 
THL VALUE MIGHT HAVE BEEN -0.00000000132547698132. 



00150 ESPOLINTRN - NEW FORMATTER - 09-05-/2 

» mm m m ■•a«Mii««Mti m « w « » w» w w « w m m m «■ «■ » « w w w «■ « 

5. JW DIFFERENCES! 
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THE NEW Jw SPECIFIED IGNORES THE H VALUE, AND OUTPUTS THE VALUE AS 
AN INTEGER CUNSTANT IN ThE MINIMUM HELD NECESSARY, SINGLE OR 
DOUBLE PRECISION VALUES OF ANY MAGNITUDE WILL BE HANDLED CORRECTLY* 
FLOATING VALUES ARE ROUNDED. 

6. RUN TIME UUTPUT ERROR MESSAGES! 



IN AU01TI0N TO THE ENO-UF-HLF AND PARITY ERROR CONDITIONS* THERE 
ARE 14 ERROR CONDITIONS PERTAINING TU THE FORMAT/LIST ELEMENT 
ITSELF. 



ERROR # 



ERROR CONDITION 



;L02 



10 3 



104 



,05 



106 



107 



106 



format was v specifier* and list element 
did not product an f ,d, e ,g, it a,0»c » j. i ,l* 
p»x» oh t. note that only the klghi most 
character of the list element is used. the 
list element must be single precision. 

format was v spfcifier of the form rv, and 
the resultant specifier needed a field 
width, fur Example. j>v *> 21. 

format was v spfciher u^ the form rv, and 
the resultant specifier needed a field 
width and uecimal places, e.u., 3v «> 3e. 

format was v specifier of the form rvw, and 
the resultant specifier needed decimal 
places, e.g., 2v * ■> 2F6. 

FURMAT SPECIFIER EVALUATED TO KW.D FORM, 
AND U < 

FORMAT SPECIFIER EVALUATED TO EW.D OR DW.D, 
AND < 1 

FORMAT WAS V SPECIFIER* AND LIST ELEMENT 
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EHHGH * 



109 



110 

111 

in 



113 



114 



115 



116 



11? 



ERROR CUND1TI0N 

USED TO EVALUATE SPEC1FIEK TYPE ( A»C » . • .ETC . ) 
HAS DOUBLE PRECISION. ONLY SINGLE 
PRECISION IS ALLOWED. 

FURMAT SPFCIMER EVALUATED TU GH» AND 
CORRESPONDING LTST ELEMENT WAS NEITHER OF 
TYPE INTEGLR NOR TYPE LOGICAL (EXPRESSIONS 
OF TYPE INTEGER OR LOGICAL ARE EDITED UNDER 
fih.D AS Iw OR LW, RESPECUVELY). 
THEREFORE. THE DECIMAL PLACES ARE 
CONSIDERED MISSING. 

<UNUSED> 

FURMAT SPECIFIER EVALUATED TO GW.D AND GW.D 
LOGIC CHOSE Ew.D BUT < 1. 

FORMAT STATEMENT HAD NO FORMAI SPECIFIERS 
REQUIRING LIST ELEMENTS. AND FORMAT WAS 
USED WITH A LIST. 

FORMAT SPECIFIER EVALUATED TO E.ft«U OR Dw.D. 
AND W LEO D 

DYNAMIC W Oh n PART OF FURMAT SPECIFIER 
EVALUATED TO A VALUE GREATER THAN THE 
MAXIMUM INTEGER ALLOWED* 549755613687 

DYNAMIC PART OF FORMAT SPECIFIER EVALUATED 
TO A VALUE GRFATER THAN THE MAXIMUM REAL 
ALLOWED. 4*31359146673*10**66. 

ATTEMPTED RECURSION! EVALUATION OF A LIST 
ELEMENT CAUStD A READ/WRITE/CLOSE ON THE 
CURRENT FILE. 

RECORD OVERFLUWI ATTEMPTED TO FORMAT BEYOND 
END-OF-RECORO. 
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IN BASIC THE AMPERSAND CHARACTER (I.E.* "I") CAN NOW BE USED TO 
INDICATE CONTINUATION OF DATA BEING SUPPLIED TO A "MAT INPUT" 
STATEMENT. 

EXAMPLE I 

100 DIM A (15) 
200 MAT INPUT A 
300 END 

WHEN THE PHQGRAM ABOVE IS EXECUTED THE "MAI INPUT" STATEMFNT WILL 
CAUSE THE PRUGRAM TO WAIT UNTIL THE DATA FOR MATRIX "A" HAS BEEN 
SUPPLIED. IF ALL THE DATA FLEMENTS CAN NOT BE SPECIFIED IN ONE 
LINE (FROM REMOTE DEVICES) OK ONE CAKD U ROM BATCH MUDE) THFN USING 
1ML AMPERSAND WILL INDICATE TO THE PROGRAM THAT MORt DATA IS TO BE 
SUPPLIED. THE PRUGRAM WILL THEN CONTINUE TO WAIT FUR MORE DATA. 
FOH THE EXAMPLE ABOVE THE DATA MIGHT BEI 

1* 2. 3. 4,& 

a. 9 

IHE PROGRAM WILL flRST READ 1.2.3 AND <♦ INTO AU), AC2). A(3) ANO A 
(«). WHEN IT SEES "&" IT LOOKS FUR MURE DATA ON THE NEXT INPUT 
RECORD AND ASSIGNS 5.6 AND 7 TO A(5)# A16). AND A(7>. THE PROGRAM 
SEES ANOTHER "K" AND LOOKS f OR MORE DATA ASSIGNING TO A(8) ANO 9 
TO A(9). THERE IS NO AMPERSAND Af TER 9 SU "A" NOW CONTAINS ONLY 
NINE ELEMENTS. (SEE SYSTEM NOTE 00197 ABOUT RESIDING OF VECTORS 
WITH "MAT INPUT" STATEMENTS.) 

IHE AMPERSAND MAY BE USED TO CONTINUE STRING DATA FOR STHlNG ARRAYS 

FILLED BY "MAT INPUT" STATEMENTS AS WELL AS NUMERIC DATA AS IN THE 

EXAMPLE. TN EITHFK CASE THE AMP* RSAND MUST BE PRECEDED BY A COMMA 
UR BE THE FIRST ITEM ON THE INPUT LINE. 

SETTING THE OPTION "OLDBASIC" (SEE SYSTEM NOTE 00193) WILL VOID THE 
USE 0«' THE ampersand AS A CONTINUATION CHARACTER. HUWEVER. in THIS 
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MUUE THE USE OF A CONTINUATION CHARACTER lb NOT NECESSARY SINCE 
"MAT INPUT" STATEMENTS WILL CONTINUE TO COOK FOR DATA UNTIL THE 
ARHAY IS COMPLETtLY FILLEO (WHEN "QLUBASIC" IS SET). 
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TH1& CHANGE IMPLEMENTS 
UUTPUT FORMATTING! 



THE K AND S FORMAT MODIFIERS FOR FORTRAN 



1. PLACING A I NEXT TO AN EDITING-PHRASE CAUSES A S TO BE 
INSERTFU AUJACENT (ON THE LLFl) TO EDITED DATUM. FqR 
EXAMPLE. 17.31 EuHEU UNDER SF10.2 WOULD APPEAR AS ####S 
17*34 (WHERE THE * STANDS f OH A BLANK). IF THE S CANNOT 
FIT WITHIN THE FIELD. ASTERISKS ARE INSERTED. 

2. PLACING THE LETTER K NEXT TO AN EUITING PHRASE CAUSES 
CUMrtAS TU BE INSERTED BETWEEN DlGIT-TR IPLES TO THE LEFT 
OF THE DECIMAL POINT. FOR EXAMPLE. -1234.56 LOITED UNDER 
KF10.2 WOULD APPEAR AS #-1.234.56; 1234567 UNOF.R KI10 
WOULD APPEAR AS #1,234.567) AND -VB7654 UNDER 5PKE20.5 
WOULD APPEAR AS ###-9fl . 765 . 40000E+01 (WHERE # STANDS FOR 
A BLANK). 

NOTE THAT dOTH THE K AND S MAY BE USED TUGETHEH. E.G.* K4F1Q.2 
nlfH 1234.56 WOULD PRODUCE #il»?34.56 (WHERE # STANDI) FOR A BLANK)! 
*KUU.2 IS A VALID ALTERNATE FORM. 

IHtSt TWO PHRASE M0UII-IEH5 MUST bE ADJACENl TO THE EDI T ING PHRASE 
(OH ADJACENT TO A MODIFIER ADJACENT TO THE PHRASE). E»G.. 2KB10.3 
PBKSG20.6 ARE VALID BUT S2J5 IS IMPROPER. 

THL MOOIFIEHS MAY NOT BE USFU FOR INPUT AND ALL SUCH USF CAUSES 
fOKMAT ERROR #20B (INVALIO PHRASE). THEY MAY BE USEU TQ MODIFY ANY 
PHRASE CODE WHICH FUITS A DATUM. INCLUDING V. 
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IMt INPUT FORMATTING INTRINSIC MAY bt MODIFIED TU GENERATE AN 
INTERNAL MINUS ZERO FOK A BLANK INPUT FIELD FUR 1»0»Z» F,E#U AND G 
PHRASES. THIS IS DONE BY COMPILING THE INPUT FORMATTER WITH THE S 
UPllUN MlNUSZEROFOHBLANKFIELO SET* ANU REPLACING THE INPUT 
FOHMATTER IN THE INTRINSIC FILE BY BINDING. 
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FORTRAN 



UOUto l-UHTHAN - FORTRAN OPTIMIZATION - 10-16-72 

A FORTRAN COMPILER THAT ATTEMPTS TO OPTIMIZE THE CODE EMITTED BY 

HHUljRAM FLOW ANALYSIS AND OTHER MEANS IS NUW AVAILABLE* INVOCATION 

UF THIS OPTIMIZATION IS dY USE" OF THE DOLLAR CARD QPUUN OPT IN THE 
STANOARO RELEASE FORTRAN COMRILFH. 

UPT CURRENTLY MAY HAVE THREE VALID VALOESl - » » 0. AND 1. THE VALUE 
OF OPT MAY HE SET BY FOLLOWING THE WORD OPT BY AN OPTIONAL EQUAL 
SIGN AND ONE OF THESE NUMBERS. ALTHOUGH THE VALUE UF OPT MAY BE 
CHANGED AT ANY TIME. A CHANGE f ROM ZERO UR -1 TO 1 OR* 1 TO ANY 
LOWEN VALUE TAKES EFFECT ONLY AT THE THE BEGINNING OF A PROGRAM 
UNIT. CHANGING BETWEEN OPT VALUES OF AND -1 IN EITHER DIRECTION 
HAS EFFECT IMMEDIATELY. 

AN OPT VALUE Of 1 WILL INVOKE OPT IMI ZAT IUN . TO SET THIS VALUE* THE 
FOLLOWING EXAMPLE DOLLAR CARD COULD BE USED! 

* UPT * 1 

IHt DEFAULT VALUE FOR UPT IS OJ THE VALUE -1 HAS BEEN DESCRIBED 
PRtVlOUSLY* IT IS PRIMARILY INTENDED FOR NON-STANDARD PROGRAMS 
THAT RELY UPON SIDE EFFECTS AND IS NOT DESIGNED FOR GENERAL USAGE. 

SUBPROGRAMS ELIGIBLE FOR OPTIMIZATION 



NOT ALL PROGRAM UNITS ARE FLTGIBLE FOR OPTIMIZATION (OPTal)t AND 
THOSE THAT ARE NOT wlLL BE FLAGGED. THE FOLLOWING PROGRAM UNIT 
FEATURES DISUUALiFY OPT 1MIZA T ION I 

1. A PRUGRAM UNIT CONTAINING ONE OK MQRE ENTRY STATEMENTS. 

2. A PRUGRAM UNIT WHICH EQUIVALENCES ONE OR MURE INTEGER. 
HEAL. UR LUGICAL VARIABLES UR ARRAYS TO ONE OR MORE 
DOUbLE PRECISION OR COMPl EX VARlAbLE UR ARRAY. 
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3* A FUNCTION SUBPROGRAM WHICH HAS A LABEL AS A FORMAL 
PARAMETER (DOES NOT APPLY TO SUBROUTINES)* ALSO* ANY 
PROGRAM UNIT WHICm REFEHFNCES A FUNCTION THAT HAS A LABEL 
AS A PARAMETER. 

4. A PROGRAM UNIT THAT CONTAINS A NAMELIST. 

5. A PROGRAM UNIT wHlCh PASSES A SUBPROGRAM AS AN ARGUMENT 
TO SOME SUBPROGRAM* 

SINCE GPT MAY BE CHANGED BETWFEM 1 ANO ON A PROGRAM UNIT BASIS* 
MERELY BECAUSE A PROGRAM CONTAINS SUBROUTINES THAT ARE INELIGIBLE 
FOR OPTIMIZATION DOES NOT MEAN THAT THE PROGRAM AS A WHOLE WILL NOT 
BENEFIT* POSSIBLY SIGNIFICANTLY* FROM SETTING OPT OT 1 FOR THOSE 
PRUGRAM UNITS WHERE PERMITTED. 

OPTIMIZATION FEATURES 



VAHIABLES WHICH HAVE BEEN OFCLARFD WITH THL OPTIUN OWN SET WILL 
CONTINUE TO WORK CORRECTLY UNDER OPTIMIZATION; BUT f OR VARIABLES 
CNUT AHRAYS). SETTING "OWN" WILL N01 FACILITATE THE BEST COUE. 
THEREFORE* A NEW UOLLAR CARD OPTION "OwNAHHAYS" HAb BEEN ADDED TO 
THL FORTRAN COMPILER. WHEN SET* THIS UPTIUN TREATS mLL ARRAYS AS 
if THEY HAD BEEN DECLARED WITH "OWN" SET* BUT MAKES ALL SIMPLE 
VARIABLES LOCAL. IT IS RECOMMENDED 1HAT OwNARRAYS BE OSED WITH 
FUKTRAN, OPTIMIZED OR NOT* WHFRF POSSIBLE. 

IF THL FORTRAN COMPILER IS COMPILED WITH THE USER OPTION 
SETOWNARRAYS SET* THE OPTION OWNARRAYS WILL bE SE 1 BY DEFAULT IN 
ALL FORTRAN CUMPILAT10NS AND MUST bE fXPLKITLt RESET BY THE 
INDIVIDUAL USER IF NOT DESIRFD* THE UULLAR CARD OPTION GRAPH IS 
LXPLICITLY DESIGNED FOR USE WITH OPTIMIZATION. 1 HIS PRODUCES A 
HOUGH FLOW CHART OF THE PROURAM UNIT ANU CAN ASSIST PROGRAMMERS IN 

MAKING FULLER USE OF THE OPTIMIZED COMPILER. 

<, 

AS DESCRIBED ELSEWHERE* AUTOMATIC VECTORMODE CODE CAN BF EMITTED BY 
THE OPTIMIZING COMPILER* PRQVIDFD THE DOLLAR CARD OPlIUN VECTORMODE 
IS SET. 

THL MONITOR AND DUMP FEATURFS DO NUT WORK WITh OPTIM I ZAT ION I 
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MOwEVEH TRACE. STATISTICS. PROGRAM DUMP. AND DUMP STATISTICS DO. 

* ■ 

INFORMATION OF THt USt AND PROBLEMS WITH THE USE OF OPTIMIZED 
FORTRAN wlLL BE GREATLY APPRECIATED* 

UN THE FOLLOWING PAGES IS AN EXAMPLE Of A SHORT OPTlMlZEO PROGRAM. 



PROGRAM GRAPH FOR .MAIN. 

I I 

I NODE 001 I 

I (00000002) I 
I ------ -| 



NODE 002 
000006) 



(00 
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i 

i 

NOOE 003 I 
(00000007) I 
LOGICAL IF I 



I 



I 
I .............. 

I NODE 004 
I (00000005) 
| LOGICAL IF 



I 
I 
I 

I 



NODE 005 
(00000010) 



I 

I 



NOOE 006 
(00000011 ) 



-® 



!<«- 



NOUE 007 
(0000001?) 

I 

I 

I 



I 
■>>>l 

I 



NOOE 008 
(00000014) 
LOGICAL IF 

I 
■-<<<t 

I 
I 



~® 



ch 
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NODE 010 
(00000010) 
LOGICAL IF 



>» 



-Q 



NODE Oil 
STOP 



B6?00/«7?00 



FORTRAN COMPILATION HARK 



2.3.01? 



MUNDAT. 0?/19/?3 



OHiil PM 



JtLIST STNGLF STACK CODE FREF OPT.l 
«SET GRAPH 

DIMENSION Af50,50), BCiOtSO). C(50.50> 

N«10 
N«50 
C(1,1)*0 



00 10 I.I.N 

on io j«I.n 

A( T,J)«s*N( .*) 



10 



100 
200 



B< I.J>*S0RTt2.0) 

CONTINUF 

DO 200 II-l.N 

DO 200 JJ»1.N 

C(II.JJ)«0 

on ioo k*i <n 

C( II.JJ)»C<Tl« JJ)*A(II.K)*«(K.JJ> 

CONTINUF 

CONTINUF 

STOP 

END 



C 000|0000«5 
C 000(0000:5 
C 00000001 
START OF SEGMENT 002 



00000002 
00000003 
OOOOOOOil 
00000005 
00000006 
0000000? 
00000008 
00000009 

ooooooio 

0000001 1 
00000012 
00000013 
00000014 
00000015 
00000016 
0000001? 
00000018 



o 



CJi 



STMTl000n0005 NOOFI0004 

stmtiooooooos NnnFiooo4 
stmti00000005 noofi0004 

stmtiooooooio noof'0005 
stmtiooooooio noofiOoo6 

STMTIOOOOOOli NODF10006 
STMTI00000017 NOnFlOOO* 

STMTI00000014 NOflFIOOO? 
STMTI00000014 NrjOFl0007 



STMTI00OO0012 NOOFlOOor 
STMTI00OO0013 NODFIOOOT 1 



STMTI00000014 NHOFlOOOfl 



STMTIOOOOOOli N00FI0009 

STMTIOOOOOOli NOOF«0009 

STMTIOOOOOOli N0OFI00O9 

STMTIOOOOOOIO NOOFlOOlO 

STMTIOOOOOOIO NOOF'OOIO 

STMTIOOOOOOIO NOOFlOOlO 



00?lOOUlO 
001«|2 
00UI3 

0071001*14 

00?i00l7tl 
001713 
00J7I4 

007I001RI1 

007i001ri2 
OOlfll 3 
001814 
001815 

00?l00l9l0 
001911 
001913 

007100191* 
OOUlO 
001412 
001 A > 3 
001 A 15 

007I001BIO 
001RI2 
001RI4 

007I001RI5 
001c»0 
001CI2 
001 C l3 
001CI5 

ooinio 

001DI2 

* ooin>2 
ooinu 

001DI4 

oo?tooini5 

OOlFIl 
001FI2 
00 



STMTI00000014 N00FI0007 007100 



STMTI00000014 N00FI0008 
STMTI00000014 NfjnFIOOOS 



1FI4 
-1FI5 
OOlFIl 
001FI2 
001FI4 
007i001fi5 
007i00?oi0 
002012 
002014 
002015 

0021 11 

0021 12 
002i 14 
002! 15 
002?ll 
00??i3 
002714 
002715 
002311 
002312 
002H3 
002115 
007410 
007412 

007l002«l3 

002«i5 

002S:2 

002515 

002415 

O07IO026I0 
007iSI2 
002*13 

007I002AI4 
0027(0 

0071002711 
002713 
002714 

0071002811 
002813 
002814 

0071002815 
002911 

0071002912 
007914 



VALC 


( 3.009) 


■ 


i 


1009 


ONF 








R1 


ADO 








80 


NAMC 


(3.009) 


a 


i 


7009 


STON 
LT8 








R9 


50 






R232 


GRTR 








8A 


8KFL 


OOOEIO 






AOOOOE 


UNF 








f»l 


PUSH 








nu 


NOOP 








FF 


NOflP 








FF 


N0I1P 








FF 


ONF 








Rl 


NAMC 


(3.003) 


■ 


jj 


7003 


STOO 








§00F 


VALC 


( 3. OOF) 


3 


ii 


LT8 


51 






R23 3 


SU8T 








81 


NAMC 


(3.00C) 


X 


1.0002 


700C 


STDD 








R8 


VALC 


( 3.00J) 


X 


JJ 


3003 


LT8 


50 






R232 


MULT 








82 


DUPL 








R7 


VALC 


(3.00O 


■ 


1.0007 


300C 


ADD 








80 


NAMC 


(3.005) 


« 


C 


7005 


INOX 








A6 


NAMC 


(3.000) 


* 


R.0003 


700D 


OVRD 








RA 


OVRN 
ZERO 








RB 








RO 


STno 








R8 


NAMC 


(3.00A) 


■ 


I. 0000 


700A 


LOAD 








RO 


NAMC 


(3.002) 


■ 


K 


7002 


STno 








R8 


LT8 


51 






R233 


SURT 








Rl 


NAMC 


(3. OOF) 


■ 


1.0004 


700E 


STnn 








R8 


NonP 








FF 


VALC 


(3.002) 


■ 


K 


3002 


LT8 


50 






R232 


MULT 








82 


VALC 


(i.OOC) 


■ 


1.0002 


300C 


ADO 








80 


NAMC 


(3.007) 


■ 


A 


7007 


NXLV 








All 


VALC 


(3.002) 


a 


K 


1002 


VALC 


(3. OOF.) 


a 


1.0004 


100E 


AOO 








80 


noop 








FF 


NAMC 


(3.006) 


a 


B 


7<)0b 


NXLV 








40 


MULT 








82 


VALC 


(3.000) 


s 


R.0003 


1000 


AOO 








80 


NAMC 


(3.000) 


a 


R.0003 


7000 


STno 








H8 


NAMC 


(3.002) 


a 


K 


7002 


STAR 


(LINKED) 


i 




A40000 


BRTR 


002010 






410020 


NVLD 








FF 


STRR 


002610 






440026 


VALC 


(3.003) 


a 


JJ 


3003 


ONE 








Rl 


ADD 








80 


NAMC 


(3.003) 


■ 


JJ 


7003 


STON 








R9 


LT8 


50 






B232 


GRTR 








8A 


8RFL 


001HIO 






A0001B 


VALC 


(3. OOF) 


a 


11 


100P 


ONF 








Rl 


ADO 








80 


NAMC 


(3, OOF) 


a 


II 


700F 


STDN 








B9 


GRTR 


50 






B232 

8A 



(3. OOF) 



(3. OOF) « u 



(3.010) 



(3.010) 



(3.010) 



*0 

TO 


M 



CnDE LISTING FUR .MAIN. 



STMTI00000018 
STMTI00000018 
STMTlOOOOOOlS 
STMT:00000018 



NOnF'OOOl 

Nnnrioool 

NODFlOOOl 

Nanr'Oooi 



STMTI000O0018 NOOF'OOOl 



STMT100000018 NOOFlOOOl 



STMTI00000018 
STNTIO0OOO004 



STMTI00000005 
$T"Tl00000006 



$t«t:ooooooo7 

STMTlOOOOOOl? 
STMTIOOOOOOJ4 
STMTJ00000014 
STMTI00000014 



STMTI00000006 
STMTI0O0O0007 

STMTI000OO007 
STHTIO000OOO8 



NOOF'OOOl 

noofioooi 



NODFlOOOl 

Nnnrioool 



MoriF>ooo! 

NOOFIOOOI 
NOOFIOOOI 
NODFlOOOl 
NnDFlO0O2 



STMTlOOOOOOOB 
STMTI00000008 



NOOFIO003 

Nonnooo3 



00?l 
OO? I 
00? I 
00?l 



00?! 



00? 
00?l 



0071 
00?! 



00?! 
00?! 
00?! 
0071 
0071 



NonFiooo? oo?i 

N0OFI0O02 0071 

N0nFI0003 00?! 

NODFI0003 00?! 



oooo 
oooo 

0000 
OOOO 
0001 

0001 

0001 
0001 
000? 
000? 
000? 
000? 
0003 
0003 
0003 
0004 
0004 
0004 
0004 
0004 
0005 
0005 
0005 
000ft 
0006 
000* 
OOOa 
0007 
0009 
0009 
1)009 
0009 
0004 
0004 
0004 
000a 
0004 

oooc 
oooc 
oooc 

000C 

oooo 
ooon 
ooon 
ooon 
ooon 
ooon 
ooor 

000F 
OOOF 
OOOF 
OOOf 
OOOf 
OOOF 
OOOF 
0010 
OOlo 
OOlo 
OOlo 
OOjc, 



100 
001 1 

0011 
001» 
001? 
STMT|00000007 N0OFt00O3 00?|001? 

001? 

9 S1? 



00?! 

00?l 

O014S5 



00 
0013 

00I3 

0013 

oou 

8812 

0014 
0015 
0015 



ZERO 








RO 




(1.002) » 


X 


ZERfl 








RO 




(3.003) « 


1 


ZERO 








RO 




(3.004) « 


1 


LT16 


2500 






R309C4 




(3.005) » 


r. 


MKST 
NAMC 








AE 








(0.007) 






4007 








NAMC 


(3.005) 






7005 








STFF 








»F , 








ONE 








Rl 








LT8 


16 






R210 








ENTR 








A8 








LT16 


2500 






R309C4 




(3,006) » 


R 


MKST 








AF 








NAMC 


(0.007) 






4007 








NAMC 


(3.006) 






7006 








STFF 








AF 








ONF 








81 








LT8 


16 






R?,0 








ENTR 














LT16 


2500 






R309C4 




(3.007) « 


4 


MKST 








AE 








NAMC 


(0.007) 






4007 








NAMC 


(3.007) 






7007 








STFF 








AF 








ONF 








Rt 








LT8 

ENTR 

LT4S 


16 






R210 








40000000 


3001000O 


RFFFFFFFFFFF 800000001000 


(3,008) 




LTR 


A 






R?06 








STAG 
ZERO 








9584 














RO 








NAMC 


(3.005) ■ 


c 




7005 








INOX 








A6 








ZERO 








RO 








STOO 








RB 








ONE 








Rl 




(3.009) » 
(1.00A) » 


T 


LT48 


68771905537 




RF 001003200001 


T 


LTR 
STAG 


4 






"28* 














95B4 








ZERO 








RO 




(3.00B) ■ 


• 


ZERO 








RO 




(3. OOC) « 


T 


ZERO 
ZERO 








RO 




(3.000) « 
(3.00E) ■ 











RO 




T 


PUSH 








R4 








NOOP 








FF 








noop 








FF 








noop 








FF 








NAMC 


(3.004) • 


I 


oooo 


700A 








LOAD 








RO 








NAMC 


(3.004) > 


J 




7004 








STnO 








R8 








VALC 


(3.009) « 


I 




3009 








LT8 


51 






R233 








SURT 








81 








NAMC 


(3.00H) » 


I 


0001 


7008 








STOO 








RR 








NOOP 








FF 








NOOP 








FF 








NOOP 








FF 








NOOP 








FF 








VALC 


(3,004) > 


J 




3004 




(3. OOF) 




LT8 


50 






R?32 








MULT 








R? 








VALC 


(3.00H) 1 


I 


0001 


300B 








400 








RO 








DUPL 








R7 








NAMC 


(3.007) • 


A 




7007 








iNnx 








46 








VALC 


(1.006) 






7006 ■ 


26B10R750257 






STOO 








R8 








NAMC 

INnx 

V»LC 


(3.006) • 


a 




7006 
46 
7005 » 








(1.005) 






2616A09E667F 






STOO 








RR 








NAMC 


(3.004) • 


j 




7004 








STBR 


(LINKED) 






440000 








BRTR 


0011 10 






410011 








NVLO 








FF 








STBR 


001610 






440016 









,0000 



,0001 

,0002 

,0003 
,0004 



►d 
p 
era 



<1 



STMTjOOOOOOlO NDrjFjOOl 1 


005 




***** 


LflCA 


Stffc 


ARRAY 4 
ARRAY 2 


8lt: 


RFAL 


ARRAY C 


REL. 


N 


IS NOT REFERENCE 


IN 


INTEGER 


VARIABLE T 


HEL. 


WKE3 


VARIABLE J 
VARfABLE II 


3ft: 


INTEGER 


VARIARLE JJ 


"EL. 


INTEGER 


VARIABLE K 
VARIABLE T.0000 


RFL. 


INTEGFR 


RFL. 


INTEGER 


VARIABLE 1. 0001 


REL. 


integer 


VARIABLE T.0002 


REL. 


RFAL 


VARIABLE R.0001 


REL. 


integer 


VARIABLE 1,0004 


*FL. 



00?9:5 
«002ai2 


BRFL 0019tO 
MKST 






A00019 

AF 

400A 


002 4 {3 
002A55 


NAMC (Q, 
ENTR 


>00A) 






O02B80 


EXTT 








A ft 


L VARIABLES' ***** 






A 3 


A RS R « ■ 

ADOp, * 


3'0g07, 
310006, 


HIE: 


§i 


'"500 
»500 




AOOR. » 


3J0005. 


SIZE s 


0?500 




THIS ROUTINE 










AODR. a 


3JO0O9 










»: : 


3SOQ04 
3J0O0F 










ADDr. » 


310003 










aodr. * 


380002 










ADDR. * 


31000A 










ADDR. i 


3JO00B 










AOQR. a 


3JO0OC 










ADDR. = 


3«n000 










AOOR. = 


3«O0OE 










002RU 


NVLO 










002RJ2 


NVLO 








F F 
FF 


002RJ3 


NVLO 








002BJ4 
002r:5 


NVLf) 
NVI.D 








FF 
FF 

rr 



SEGMENT 002 IS 002C i nNG 



*0 

era 



00 
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U0153 FORTRAN 



"FIRST" DOLLAR CARD OMION - 10-30-72 



This hatch implements Tht Fortran compile time option 

GETF IKSTOOLLARCARDFHOMSRO. IF SET THE COMPILER ACCEPTS THE FIRST 
DOLLAR CARD FROM THE OPERATORS CONSOLE VIA AN "AX" INPUT MESSAGE. 
THIS SHOULD dE RtSE T FllK NORMAL OPERATIONS. 



00157 FORTRAN 



"OWNARRAYS" OPTION - 01-15-73 



A n£W DOlLAR-CARU OPTION "OWNARRAYS" HAS bEEN ESTABLISHED IN 
FORTRAN. WITH THIS OPTION SET ALL ARRAYS VANt) ONLV ARRAYS UNLESS 
OWN lb ALSO SET) WILL til TKEATEO AS OWN ARRAYS. HENCE SPACE WILL 

no r tiiE given up upun exit or k£Tuhn from the sobprogram nor 

REINITIALIZED OPON HE-twTRY. 



0U160 FOHTHAN 



TRUNCATtD IDFNTIFIERS - U2-19-73 



THlb HATCH wiLL CAUSE A WARNING. "IDENTIFIER TRUNCATED TO 6 
CHANACTErS" FOR ALL IDENTIFIERS REQUIRING SUCH TR0NCAT10N. 
PRLVIUUSLY IhL WARNING WAS ISSUED ONLY IF 1HE UkST OCCURENCE 
CAUbtU TRUNCATION. FUK EXISTING PROGRAMS IN WHICH THIS ERROR 
FRLUCLNTLY OCCUHS THE UOLLAR DHTlUN "SUHhS" CAN tit StT TO ELIMINATE 
fHL WARNING MESSAGES. 



00165 FORTRAN - CORE TO CURE OATA THAKbFEK - 11-06*72 



CORE FC CORE DATA TRANSFER CONSTRUCT HAS bEEN AUDtD TO FURTRAN 
iN>'ur/OuTPuT STATEMENTS. 

ADDITIONAL FORMS OF THE READ STATEMENT AREI 



U0165 FOHTHAN - CURE TO CORfc DATA TRANSFER 



- 11.06-fS*" 
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HEAD (A, M M 

ftfc.AU (A. F» K) M 

READ (A, C) 

READ (A, F, . R J ■ ' 

HEAU (A) M 

HEAD (A* R) M 

ADDITIONAL FORMS OF 1HE WRITE STATEMENT AREI 

Wftl TE (A. F) 

WRITE (A. F» R) M 

WHITE (A. F) 

WRITE U» F» R) 

WHITE (A) M 

WRITE (A» R) M 

WHEHE "A" IS AN ARRAY IDENTIFIER* "F" IS A FORMAT NUMBER* AN ARRAY 
IDENTIFIER. UR A SLASH C/)J AND "R" IS A RESULT CLAUSE LIST. 

THESE FORMS ALLOW TRANSFER UF DATA BETWEEN UNE AREA OF STORAGE AND 

ANU1HER. TRANSFER TO ANU FRUM THE ARRAY IS ALWAYS BEGUN AT THE LOW 

ENU OF STORAGE MOVING TOWARU THE HIGH ENU UNDER THE CONTROL UF THE 
FORMAT SPECTFIED. 

EXAMPLE! 

UiMtNSlON A(2) 

REAU /* REHEAT* WIDTH, DEC 

WRITE (A. 1) REHEAT. WIDTH* DEC 

1 FORMAT CM"* II* ,, F , '» 12* ".»', 12* ") M ) 

AFfEH THE WRITE STATEMENT "A" WUULD CONTAIN MDF 6C640F 44B * 
440F2SU40404U WhFN 6»4«? *FRF THE VALUES UF REPEAT* WIDTH* DEC 
RESPECTIVELY. I H lb F.XAMPLE MIGHT BE UStU TU UYNAMICALLY CONSTRUCT 
FORMAT SPECIFICATIONS. 



U0228 



FORTRAN 



UULLAR CAHD CHARACTER OPTIONS - l?-0<*-7? 



CUMP1LLH DOLLAR CARD SYNTAX HA5 BEEN EXTENDED TU INCLUDE THE 
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1)02261 FORTRAN " DOLLAR CARD CHARACTER UPU0NS - 1*-0W8 

fULLUwlNG OPTIONS. 

CHANS = M ThiS OPTION SETS TU N 1 HE NUMBER OE CHARACTERS OF A 
STRING (INCLUDING HOLLERITH) WHICH WiLL b£ STOHtD IN ONI WORD. 
PREVIOUSLY, THIS WAS CONSTANT AT SIX EbCDIC (OH ASCII) CHARACTERS 
FOR FORTRAN AND SIX bCL CHARACTFHS FOR XEURTRAN. STRING CHARACTERS 
WILL HE STORED LfcTT JUSTIFIED IN THE MELD llF N RIGHT MOST BYTES OF 
A wURU Of ALL ZEROS WITH BLANK FILL UN THE RIGHT. WITH THE BCL 
uHliUM (SEE BELOW) SET* N HAb A MAXIMUM VALUE UF « UlHtRwlSE 6* 

tXAKPLL 

S SET CHAHS ■ 4 
REAL A(2)/"AbCDEF"/ 

WILL RESULT IN A(l) = ^OODUC 1 C2C 3C 4 » A(2) a Z000UC5C64040 . 

iHt DEFAULT SETTING IS SIX FHCUIC CHARACTERS. NOTICE THAT WITh 

CHARS < 6. VARIABLES INITIALIZED Tu ALL BLANKS WILL NO LONGt R SF T 

THE SIGN OF THE MANTISSA (4611). HtNCE. IF X lb SUCH A VARIABLE X 
* -AbS(X). 

BCn THIS UPUON IMPLIES THAf Al L STPiNGb (HULi-ERllH OK PROPER) ARE 
IU tit USED AS HCL CHAK*CTEKS. U "CHAKS" HAb NOT BEtN EXPLICITLY 

set. Then the NUMbtR of characters per wurd will bl set to eight. 

bCL AND ASCII OPTIONS CANNUT bt SE I CUNCoHRENlLYJ SHOULD THIS 
CONDITION OCCUR. -A SYNTAX E RrtflK WILL bE UlVEN. 

b5bQ0» SmME Ab Bb700. 

b5/O0» USE OF THIS OPTION ALLOWS CuMPLETE COMPATIBILITY WITH 

bURHUUGHS 35700 FOKTRAN PROGRAMMING LANGUAGL. THE bCL OPTIUN WtLL 

bE SET ANO THE ASCII OPTION WILL BE RESET. IF CHAhS HAS NOT BEEN 

EXPLICITLY USEU. THEN THE CHARACTtRS PER WORD WILL BE SET TU SIX. 

THE ABOVE. COMPILE TlME OPTIONS ELIMINATE 1 Hfc NEED FOR A SEPARATE 
tibtUQ COMPATIBLE COMPILER; AND HENCEFORTH. S YSTEM/XF ORTR AN COMPlLfR 
WILL NOT BE MAIMAINEU. THIS PATCH ALbll ALLOWS COMPLETE 
iNTERCHANGEAblLITY BETWEEN APOSTROPHE AND uOUTE FUR EBCDIC PROPER 
STHINGS. THLIR USE AS DELIMITERS CANNUT BE MIXED* 



UU226 FURTHAN 



UULLAH CARD CHAKACtER OFUUNS - 12 



-o*m i 
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EXAMPLE 

HtAL A(2)/"AB~ -C""OEFGH-'V Y I fc LUS AH 1 ) ■ lCl<:27l)7uC 17F , 
AC2) a ZC4C5C6C7CH7U BUT "ABCOF.F- IS AN INVALID LITERAL. 

(NOTE THAT THfc DASH MAS BEEN USLD FOR THE APOSTROPHE.) 

NUitJ APQSTKOPME KLMAlNS AN ILLEGAL dCL CHARACTER SU THAT ALTHOUGH 
iT MAY DELIMIT A BCL PROPER STRING. AN OCCURRENCE WITHIN SUCH A 
LiTEHAL HILL BE INTEHHhETED AS A dCL INVALID CHARACTER* I.E.* A 

UUEST1UN MARK. 

ANUTMER FEATURE OF THIS PATCH IS THAT 1HE GRAPHIC ASSOCIATED WITH 
1HL CARD CUDE (0» 12-ZUNE) TS IDENTICAL 10 THE GRAPHIC FOR CARD 
CUUE (8, 6, 12-ZONE) WHICH IS AN EBCDIC PLUS ("♦"). 



00*31 



FURTKAN - TRACE STATEMFNT - 02-19-73 



A NEw UEblJG STATEMENT HAS HEEN ADDED TO FORTRAN, THE TRACE 
STATEMENT. LIKE 1 HE STATISTICS STATEMENT, THIS STATEMENT HAS 
EFFECT ACROSS SUBPROGRAM dUUNDARIES. THE SYNTAX IS I 

DEBUG THACE C F) T 
DEBUG THACE (F.C) T 

WHtHt 

r IS THE TRACE LIST AND 

F AND C ARE FILE NUMBERS OR <EMPTY>. 

"UtbUG" MyST HE IN COLOMNS 1-5. COLUMN SIX MUST BE BLANK. THE 
TRACE STATEMENT MAY dE CONTINUED TO SUCCEEDING CARDS. 

TRACE LISTS 



1 IS A LIST OF ELEMENTS SEPAHATFD BY GUMMAS. ELIGIBLE ENTRIES AREI 

UUMP 

NOUUMP 

PHUGHAMUUMP 



1)0231 FORTRAN - TKACF STATEMENT - 02-19-73 

■i « ■ « » MMa*M«« m «•»««« m»w w •» • w «• » • • • * m m m m m m 

NQPHOtiRAMUUMP 
CALLS 

NONE 

#S 

WHtRE S IS DEFINED TO BE ANY OF THfc FGtLUWlNGt 

ALL 

10 

GO 

00 TO 

REAU 

WRITE 

BACKSPACE 

R E W I N U 

PRINT 

PUNCH 

s 

CALL 

CONTINUE 

STATEMENT ACTION 
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THIS STATEMENT ALLOWS THE TRACING OF A PRUGRAMS FLOW BY PRINTING 
OUT ALL SEUUENCE NUMBERS ANH STATEMENT NUMBERS UF THE SPECIFIED 
STATEMENTS ANO SUBPROGRAM CALLS. COMPARATOR ACTION IS ALSO ALLOWEO 
10 UETECT DEVIATIONS IN PREnETERM INEO PROGRAM FLUW. AND TO HAVE 
PRUGRAM DUMPS TAKEN SHOULD A MISMATCH AHISfc. 

"F" IS TH£ OUTPUT FILE. IF »F« IS <EMPTY> THEN THE PREVIOUS VALUE 
UK "F" IS CARRIED OVER. If "F " HAS NEVER BEEN SPECIFIED THEN THE 
TRACING ACTION IS SUPPRESSED. "C" IS THE CUMPARATUk FRF. IF "C" 
IS NOT SPEClFltO BY USE OK THE FIRST * URM OF THE STATEMENT * THEN 
THt TRACE UUTPUl IS WRITTEN UN THE ULE "F". "f" MAY BE A UlSK OR 
TAPE ULE. AND IS AUTOMATICALLY LOCKED AT IHL END UF THE PRUGRAM. 
IF THE COMPARATOR FILE IS SPEClFIfcO* ThEN INSTEAD OF WRITING A 
TRACE RECORD TO "F"# A RECURD IS READ F RUM "C", AND COMPARED TO THE 



uazji 



fohtran 



THACF STATtMENT - U?-l9-'3 
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trace record that would have been output to "f" had «c" not been 
specified, ik they compahe as identical. no action is taken* if 
ihty do not cumpare* then a message is written to "»■"• and if dump 
ur prugram dump was specified* a program dump is taken. 

iht list "t" is u5eu to specify the tracing action* dump or 
prugram oumh specify that program dumps are to be taken if the 
comparison with "c" records fails. nouump ur noprogr amoump resets 
this specification. nuuump is 1 he assumed setting. none 0^ these 
uptions have any meaning if the comparitor mode has not been 
reuuesteu. 

"calls" traces all subroutinf and function entries and exits, 
intrinsic calls are not traced. 

"nune" resets all requests preceding it. otherwise each "t" 
element is processed additively. 

fhl specification "s" is used to indicate that tracing is desired 
un an executable statement or class of executable statements. if 
prtceeueu by a pound sign (#) then only statements of this class 
hlfh statement numbers are tracfo. 

all - 1nd1cages all executable statements (anu sets calls) 

10 - indicates all i/u statements 

go* go to - indicates go to statements 

print* punch* read* white - indicate the statement named 

call* continue* backshace* rewind - indicate the statement namfd 

» ■ indicates all assignment and du statements 

following is an example of a sample program with a trace statement. 



00231 rQRTHAN - TkaCF STATEMENT - 02-19-73 PAbE l55 



B6/00/B//00 FORTRAN COMPILATION MARK 2.3.01/ MUNOAV. 02/19//3 0»|35 PM 

• SET t LIST SINGLF OWNARRAYS FREE C 000|0000l5 

tSET 0PT*1 00001000 C 0001000015 

DEBUG TRACEC6) »ALL 00002000 C 



\ 


1*2 


3 


\'.Y l 


A 


T.4 
CALL X 




123 


CALL X 


456 


STOP 




START Of SEGMENT 002 
FIB IS 0005 i ONG 



END 00011000 t 

(SET OPT-0 00012000 C 

* l ' SEGMENT 002 IS 0030 I ONG 



START OF SEGMENT 004 

SUBROUTINE X 00013000 C 0041000010 

123 1*1 00014000 C 0041000010 

456 1*456 00015000 C 0041000614 

W«9 00016000 C 0041000010 

1000 1*1000 00017000 C 004IOOOEIO 

RETU"' —...--« _„..,...».„ 

ENO 



1*1000 0001/000 C 004I000EIO 

RETURN 0001*000 C 0041001510 

ENO 00019000 C 0041001513 



SEGMENT 004 IS 001A l ONG 



START OF SEGMENT 005 
SEGMENT 005 IS OOOD l ONG 



NO ERRORS DETECTED. NUMBER OF CARDS * 21, 

COMPILATION TIME • 4 SECONDS ELAPSEO. 0.52 SECONDS PRQCESSINS. 

02 STACK SIZF • 5 WORDS. FiLESIZE ■ 78 hORdS. ESTIMATED CORE STORAGE REQUIREMENT • 211 WORDS. 

TOTAL PROGRAM CODE • 125 WORnS. ARRAY STORAGE * WORDS. 

NUMBER OF PROGRAM SEGMENTS • 4. NUMBER OF DISK SEGMENTS • 16. 

PROGRAM CODE FILE « TRACE/TR»CE\ COMPILER COMPILED ON 02/18/73 



STMT* 1 SEQ*00003000 

STMT* 2 SEQ.OOOOAOOO 

STMT* 1 SEQ*O05560O0 

mil x 4 g|828888S888 

ItStJ ill P|=888U8g8 

kiV x 1000 pl:888U888 

STMT* 123 SEQ*00009000 

ENTER X SEO*00009000 

mi ill 1^8=88815888 

KW x 1000 s s e§:888o,888 

STMT* 456 SE0«0001OO0O 



UG231 



^ H 1 H A N 



THACF STATEMENT - 02-l9-f3 
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FORTRAN EXAMPLE 



UQ2J2 



FORTRAN 



HEE 1ULNT1FILR - 02MW3 



this patch implements the use of proper strinus and Hollerith 
strings when specifying the txtfrnal identifier klthin a file card. 



tXAMPLEl 



FILE 10 a "EBCDIC-NAME"* RECORD « 
ERE 11 » "AB"/2HCD» RECORD ■ 100 



100 



NUfE THERE IS NO AMBIGUITY BETWEEN HOLLERITH STRINGS AND 
IDENTIFIERS CREATED UNDER PREVIOUS SYNTAX SINCE IDENTIFIERS WHICH 
ARE NOT STRINGS ARE NOT ALLOWFD TO BEGIN WITH NUMEhIC CHARACTERS* 



U0230 



FUHTHAN - FORTRAN DOLLAR CARD OPTIONS - 02*19-73 



A NUMBER OF NEW DOLLAR CARD OPTIONS HAVE BEEN ADDED TO FORTRAN AND 
SOME EXISTING OPTIONS HAVE HEEN REVISED. THIS NOTE ATTFMPTS TO 
C9LLATE ALL OK THE NEW DOLLAR CARD UPTIONS. UNLESS EXPLICITLY 
N01EU* ALL OF THESE UPTIONS MAY BE EXPLICITLY OR IMPLICITLY SET* 
RESET* OR POPPED FOLLOWING THE PROCEDURES FDR EXISTING OPTIONS! AND 
ARE RESET BY DEFAULT. 

UWNAHRAYSJ MAY ONLY BE ALTERED EXPLICITLY. WHEN SET* THIS OPTION 
IRtATS ALL ARRAYS AS IF THEY WERE DELCAREO AS "OWNS" BUT DOES NOT 
AFFECT the STAIUS UF SIMPLE VARIABLLS. THIS IS DESCRIBED IN 
GREATER DETAIL IN THE OPTIMIZATION SYSTEM NOTE* D0146. 

(SJl DOLLAR CARDS (WITH THE DOLLAR SIGN IN COLUMN ONE) WILL BE 

LISTED IF LIST IS SET. IF THE FIRST I SIGN ON THE CARD IS IN 

COLUMN TWO, IT rtILL BE LISTED ACCURDING TO THE SAME RULES AS A 
6UURCE CARD. 



U At C 1 C f 

00230 FORTRAN • FOKTRAN DOLLAR CARD OPTIONS - 02-19-73 

GRAPH* VECTORMODEl OPTIMIZATION OPTIONS THAT ARt SIGNIFICANT ONLY 
IF OPTIMIZING. GRAPH PROVIUFS ADDITIONAL LISTING* VECTORMODE WILL 
PERMIT EMITTING VECTORMODE CODE WHEN FEASIBLE* THIS IS OEXCRIBEU 
IN GREATER DETAIL IN THE OPTIMIZATION SYSTEM NOTE* D0H6. 

B7700« AN OPTION THAT IS SIGNIFICANT ONLY U OPTIMIZING* THIS 
INHIBITS SOME CONSTRUCTS THAT* WHILE OPTIMAL FUR THE B6700* ARE NOT 
PRtFERREU ON THE B7700. ALL CODE EMITTED* WITH UR WITHOUT THIS 
UPlIQN* HILL RUN ON EITHER MACHINE. THIS ONLY AFFECTS EMITTING 
OPTIMAL CONTRUCTS. 

ENDl WHEN ENCOUNTERED* SIGNALS FND OF FILE ON 1 HE PAhTlCULAR MEDIUM 
WHERE FOUND. THIS OPTION IS NOT IMPLICITLY SET* RESET* OR POPPED. 
IT IS AN INDEPENUENT OPTION, HANDLED SIMILARLY TU S PAGF IN NOT 
AFFECTING OTHER OPTIONS. 

B5500>B5700.BCL»ASCIl»EBCDlC»CHARS*Nl THESE OPTIONS ASSIST 
INCONVERTIBILITY OF PROGRAMS. THEY ARE DESCRIBED IN THE CHARACTERS 
PER WORD SYSTEM NOTE* 0022B* 



U0k!87 FORTRAN - STATISTICS In FORTRAN - 04-11-73 



IT SHULLU BE NOTED IN THE SYNTAX SECTION OF SYSTEM NOTF D0109 THAT 
TO GET STATISTICS* DIAGNOSTICS OR THE FILE NUMBER MUST BE ENCLOSED 
IN PARENTHESES* 
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INPUT-OUTPUT 



U01H5 MCp-i-U - "hRlTESPO" PRUCEPURE - 12-04-72 

1. 1 HiS PROCEDURE ASSUMES WHAT ITS NAME IMPLItSt A WHITE UF DATA 
TU A CONSOLE IS NEEDED. THF PARAMETERS AREt 



(U, rtDS# U1RAKAY, IOC 1MSHEVENT) 



X ALL CALL-«Y-VALUE 
EXCEPT THE EVENT 



r»MEKE 



U * UNIT * UF CUNSULE 

*US * NUMBER OF WUHDS TO Bt WRITTEN 

(DATA STR1NU MAY HAVE IMBLDDEU "ETX"» IN WHICH 
CASE IT WILL TERMINATE THE WHITE. NOTE THAT I19» 
3] MAY ClJNTAlN A VALUE Ufr ZERU THROUGH FIVE TU 
INDICATE CHARACTERS IN ADUlUUN TU THE NUMBER OF 
WORDS IN [1611/].) 

UlRANAY a DIRECT ARRAY 

(contains data tu be writttn and dl rara y . i umask 
has appropriate mask.) 

igfinishevent * event caused when i/o is finished 

2. rtritespo is a huulean rrucedure which returns! 

false » auk (i.e.* white is "in motion") 

True * cuulu not/would nut attempt write 

U»fl a 34 MfANJs "ll" IS BAD 

■ 40 MEANS "01RARAY" IS NUT DIRECT ARRAY 
» 41 MEANS "DIRARAY" HAS A/U IN PH0CESS 
a 4? MFANS InT INISHEVENT UECLARED LATER 
THAN DIRARAY 



D0165 MCP-l-0 - "WHITESPO" PROCEDURE 



12-0<W? 
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3. CALLER CAN USE DIRECT I/U (ARRAY) AllRlBUTESl 

A. TO SET UP "IOMASK"* OR RETRIEVE IT 

B. TO CHECK, FUR "IOCUMPLETE" 

C. TQ RETRIEVE "IORESULT" (RAW WORD 

U» TO CHECK "IOERRORTYPE" (SEE I/O SUBSYSTEM MANUAL PP. 
4-23) 

£. To RETRIEVE "IUTIME" (IN *>♦« USECS). 

<♦. CONTROLLER CAN TRANSMIT DATA TO ANY CONSOLE If A USER IS 
CUNNECTEU VIA CUNSULE FILES* OUTPUT CAN BE "MlXEU". 

U0191 MCP-1-0 - FILE ATTRIBUTES - TIMELIMIT - 12-1W2 



THE OATACOM FILE (KIND s REMOTE) ATTRIBUTED "T lMELiMiT" , HAS BEEN 
IMPLEMENTED. TIMELIMIT IS A POSITIVE REAL NUMBER IN UNITS OF 
SECONDS, IT CAN BE BOTH SET AND REAU. THE ATTRIBUTE CAN BE SFT 
VIA LABEL EOUATION* IN THE FILE DECLARATION* AT RUN TIME WITH THE 
FILE EITHER OPENED OR CLUSED* OR IN REAU UR WRITE STATEMENTS. IT 
CAN BE REAO UnLY WHILE 1 HE FILE IS OPEN. 

IHE ACTION WHEN TIMELIMIT IS GRFATER THAN ZERO IS AS FULLOWSl 

ON A READ STATEMENT* IF NU INPUT IS RECEIVED WlTHlN TIMELIMIT 
SECONDS. THE READ STATEMENT IF TERMINATED WITH A TIMELIMIT 

ERHUR. 

ON A WRITE STATEMENT* IF Nfl BUFFER bECOMES AVAILABLE WITHIN 
TIMELIMIT SECONDS* THE WRITE STATtMtNT IS TERMINAIEO WITH A 
TIMELIMIT ERROR. 

A TIMELIMIT ERROR IS HEPriNTEO BY THE LOGICAL I/O RFSULT 
DESCRIPTOR HAVING THE ATTENTION BIT IOUI ANL BIT tl5Ul 
TURNED ON. 

SYNTAX FOR SETTING TIMELIMIT IN AN ALGOL I/O STATEMENT* 



U0191 MCP-l-U - FILE ATTRIBUTES - TIMELlMIT - 12"15 



m m*i i6o 



AUU TO IHE <RECORU NUMBER OR CARRIAGE CONTROL> DEFINITION 
(SEE V-21 I iM ALGOL LANGUAGE DOCUMENT). 



tTlMELIMIf <AHITHM£TIC EXPRESSIUN>J 



EXAMPLEl 



WHir£(HL£10 ITIMELIMIT 25 . 3 ] » 1 2 . ARhA YHUW ) I 



U(U*6 



MCP-i-0 - FILE ATTRIBUTES - CURMENTbLUCK - 12-19-7? 



IHL FILE ATTRIBUTE, "CUHRENTHLUCK" . IS A REAU ONLY INTEGER WHICH IS 
ACCESSABLE ONLY WHEN THE FILE IS OPEN. THt VALUE RETURNED IS THE 
SUE OF THE BLOC* CURRENTLY IN USE* IN LOGICAL UNITS (I.E.* 
INfMUOE UNITS IF IT IS A CHARACTER UHIENIEU ULE* OTHERWISE WORDS). 



U0235 MCP-i-U - FILE ATTRIBUTES - 02*19-/3 



LlNENUM 

fHL ATTRIBUTE LlNENUM INDICATES THE CURRLNT LINE NUMBER OF THE 
LUlilCAL PAGE. DEFINED BY THE PAGESIZE ATTRIBUTE. IT IS ONLY 
MEANINGFUL FUR PRINTER ULLS WHFKE THE PaGESIZE ATTRIBUTE HAS BEEN 
5£f GREATER THAN ZERO. LlNENUM CAN BE SET TU ANY VALUE BETWEEN 
ZERO AND 25*5. 

USL OF IhE "UlNE <AEXP>1" FORM OF THE <RECORD NUMBER OR CARRIAGE 
CUNTROL> PART CAUSES THfc. LOGICAL I/O SUBSYSTEM TO SPACE FORWARD TO 
THE LOGICAL LIimE EOUAL TU <AEXP> AnU SETS LlNENUM 10 <AEXP>. <IF 
<AExP> IS GREATER THAN OR EQUAL TO PAGESIZE* OR IF <AEXP> IS LESS 
THAN LlNENUM (IMPLYING A BACKSPACE ) AN END OF PAGE RESULT IS 
RETURNED. A SKIP TO CHANNEL ONE* I.E.* "[SKIP 1]" RESETS LlNENOM 
10 UNE. SETTING LlNENUM GREATER THAN OR EOUAL TO PAGESIZF (WHEN IT 
IS GREATER THAN ZtRO) «1LL CAUSE AN END OF PAuE RESULT ON THE NEXT 
WRITE STATEMtNT. 

LVtKT SERIAL UNITE STATEMENT INCREMENTS LlNENUM (WHILE PAGESIZE IS 



00235 



MCP-I-0 - FILE ATTRIBUTES - 02-1W3 
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GREATER THAN ZERO), a serial write statement which results in end 

UF PAGE WILL HAVE BEEN PRINTED* AN END OF PAGE DOES NOT CAUSE THE 

NEXT WRITE STATEMENT TO START ON THE TUP UF A PHYSICAL PAGE. ANY 

SPECIAL ACTION AFTER THE END OF PAGE RESULT MUST BE DONE BY THE 
PRUGRAM, THE VALUE OF L1NENUM AFTER THE END OF PAGE IS ONE* 

AN END CF PAdE RESULT IS THE SAME AS AN END OF FILE RESULT* 

PAGESIZE 

THE ATTRIBUTE PAGESUE INDICATES THE NUMBER UF LINES ON A LOGICAL 
PAGE OF A PRINTER FILE* PAGESIZE CAN BE SET OR INTERROGATED AT 
ANYTIME* PAGESIZE CAN HAVE A VALUE BETWEEN AND 255-INCLUSI VE . 
HHLN PAGESIZE IS NON-ZERO THE LOGICAL 1/0 SUBSYSTEM MAINTAINS THE 
LINENUM AND PAGE ATTRIBUTES. WHENEVER THE VALUE OF UNENUM BECOMES 
GREATER THAN OR EQUAL TO PAGESIZE* THE WHITE STATEMENT WILL RETURN 
AN END OF PAGE RESULT (THAT IS THE SAME AS END OF FILE) AND LINENUM 
WILL BE RESET TO 1. IF PAUESIZF IS RESET TO ZERO WHILE THE PRINTER 
FILE IS OPEN* PAGE AND LINENUM WILL SUBSECUENlLY BE IGNORED. 
PREVIOUS TO II-4 THIS CAUSED A FATAL ERRUR. 

PAuESIZE IS ALSO A UATACQM FILE CKINU-REMUT E ) ATTRIBUTE WITH A MORE 
RESTRICTED MEANING* PAGESIZE IS READ ONLY* THE FILE MUST BE OPEN 
fO ACCESS IT. AND IT REUUIRES A RELATIVE STATlUN NUMbEH AS AN INDEX* 
AS A DATACOM FILE ATTRIBUTE IT RETURNS THE NUMBER OF LINES ON A 
PAGE AS SPECIFIED IN THE NDL DESCRIPTION OF THE STATION. 



U0282 1-0 - CARRIAGE CONTROL VALUES - 03-23-73 



THt FIHST PARAGRAPH OF D0133 IN THE SYSTEM MISCELLANEA HAS BEEN 
CHANGED TO READ AS FOLLOwSI 

THt FILE ATTRIBUTE "CARRI AGECONT HOL" HAS BEEN IMPLEMENTED FOR 
PRiNTLH FILES. IT MAS THREE VALUES! 

SlANCARU - - THE DEFAULT* NURMAL CARRIAGI CUNTROL AS 
SPECIF 1EU BY THE I/O STATEMENT OR FORMAT. 
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• »•»» Sana a aaaaaaaa aaaaaaa a a «■ a a a m aaaaaaaa 

CTLASA - i 
CTL360 - 2 

NtlTEl NON-STANDARD CARRIAttF CONTROL IS ONLY ALLOWED FOR 
CHARACTER 0RIENTE0 (UNITS • TRUE) EbCDIC (InTMQUE ■ EBCDIC) 
PRINTER FILES. 
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MCP 



U0U2 MCP • TIME SLICING AND CODE SWAPPING 



10-16-72 



IHfc MCP HILL NOW PLACE CODF WITHIN THE SUBSPACE IF THE TASK 
ATIHIBUTE HAS SWBSPACE SET TO THREE. MEMORY ASSIGNED TO A SUBSPACE 
TASK WILL NUW BE INCREASED UP TO THE SUE OF THE SUbSPACE WHENEVER 
A TASK EXCEEDS THE CUKRENTLY ALLOTTED SPACE. 

TIME SLICING IS IMPLEMENTED AS FOLLOWSl 

UNE OF THE GOALS OF THE SUBSPACE TASK EXECUTION OPTION IS TO ALLOW 
A LARGE NUMBER OF BURST-URIFNT ED I ASKS TO RUN WITHOUT FREEZING 
MEMORY RESOURCES DURINU THEIR DORMANT PERIODS. MEMURY IS FREEO BY 
SWAPPING THE DORMANT TASK TU DISK SU THAT ITS MEMORY RESOURCES ARE 
AVAILABLE FUR USE BY ANOTHER SUCH TASK. BECAUSE A LARGE NUMBER OF 
TASKS ARE BIDDING FOR A SOMFWHAT SMALLER MEMORY HESOORCF. TASKS 
WHKH FOR SOME REASON DISCONTINUE THEIR BURST-ORIENT A I ION FOR SOME 
DUHATION OF TIME MUST HAVE AN ARTIFICIAL BURST RATE IMPOSED UPON 
THEM* THIS IS TIME SLICING AND IS NECESSARY TO ENSURE THAT ALL 
TASKS WILL HAVE AN OPPORTUNITY TO USE THE SUBSPACE MtMORY RESOURCE. 
THEhiE ARE FIVE CASES WHEN A TASK OPERATING WITHIN A SUBSPACE WILL 
BE SWAPPED OUT TO DISK! 

A. WHENEVER THE TASK ATTEMPTS TO OBTAIN INPUT FROM THE 
OATACOM SUBSYSTEM AND THE REQUIRED INPUT IS NOT YET 
AVAILABLE) 

3* WHENEVER THE OUTPUT BUFFERS FOR TILES BEING DIRECTED TO 
THE OATACOM SUBSYSTEM ARE f ILLtO AND THE TASK ATTEMPTS 
MORE SUCH OUTPUT) 

C. WHENEVER THE TASK HAS BEFN SUSPENDED* 

D. WHENEVER THE TIME SLICE ALLOCATED THE TASK HAS EXPIRFDI 
E« WHENEVER THE TASK EXCEEDS THE SUBSPACE SUE ALLOCATED TO 



U0172 MCP - TIME SLICING AND CODE SWAPPING - 10-16-7? AbE l6< * 
IT UN ITS PREVIUUS SWAP-IN. 

TASKS AHE RETURNED TO MEMORY (WITH RELOCATION SO THAT IT IS NOT 
HEyuIKEO THAT THE IDENTICAL MEMORY SPACE F ROM WHICH A TASK WAS 
CAPPED BE AVAILABLE IN ORDER To SWAP THE TASK BACK TO CORE) 
wHtNtVEH THEY ARE CAPABLE UF UTILIZING THE PROCESSOR AND THERE IS 
ADLUUATE MEMORY AVAILABLE FOR THE SWAP-IN. THERE ARE TWO PRIORITY 
LEVELS EUR SELECTING READY-TU-RUN TASKS FUR SWAP-IN. 

A* DEMAND SWAPPING 

TASKS WHICH ARE NEW TO THE SYSTEM* WHICH HAVE RECEIVED THE 
UATACOM INPUT F OR WHICH THEY ARE WAITING* TASKS FOR WHICH THE 
UATACOM SUBSYSTEM HAS OUTPUT AT LtAST UNE HALF OF THE OATA WHICH 
EXCESS URIGiNALLY CAUSED THE SWAP-OUT* AND TASKS WHICH HAVE BEEN 
AWAKENED FRUM SWAP-OUT SUSPENSION* WILL BE CONSIDERED AHEAD OF A 
TASK WHICH WAS SWAPPED BECAUSE OF TIHE SLICE EXPIRATION. THE 
EXCEPTION TO THIS IS THAT WHENEVER THE NUMBER OF TASKS INSERTED 
IN FHUNT OF A SLICE JOB EXCEEDS ITS SLICE NUMBER BY TWO* THAT 
TASK WILL REVERT TO DEMAND STATUS. WITHIN OEMAND STATUS* TASKS 
ARE ORDERED IN A FIRST-IN FIRST-SWAPPED ORDER. 

B. TIME SLICED TASKS 

TASKS SWAPPED OUT BECAUSE THEY EXCEED THEIR TIME SLICE WILL BE 
SWAPPED INTO AVAILABLE MEMORY ONLY IF THERE ARE NU DEMAND STATUS 
SWAP REQUESTS WHICH CAN BE SATISFIED* 

IT SHOULD BE NOTED THAT PRIORITY IS NOT A DIRECT CONSIDERATION IN 
THE SWAPPING ALGOHITHMJ INSTEAD. IT APPEARS IN THE FORMULA USEO TO 
COMPUTE TIME SLICES. THE TIME SLICE ALLOCATED A TASK IS EXPRESSED 
LU TERMS OF BOTH ELAPSED TIME AND PROCESSOR TIME. BEFORE 
ALLOCATING A PROCESSOR TO A SWAPPABLE JOB* ITS PROCESSOR AND 
ELAPSED TIME SLICES ARE CHECKED* IF EITHER IS EXCEEDED* A NEW 
SLICE IS COMPUTED AS PER THE FORMULA BELOW* AND THE JOB IS SWAPPED 
UUT. WHEN A JOB IS SWAPPED OUT DUE TO A DEMAND CONDITION (I.E.* 
UATACOM INPUT REUUIHED)* ITS SLICE NUMBER IS RESET TU ZERO. 

tACH TIME A TASK IS SWAPPED BECAUSE OF TIME SLICE EXCEEDED, THE 
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SLICE NUMBER IS INCREMENTED BY QNfc . THIS NUMBER IS SUBJECT TO A 
MAXIMUM VALUE AS SPECIFIED IN THE SWAPU1SK KILE* WITH A SYSTEM 
IMPOSED MAXIMUM OF 256. 

THE FORMULA FOR COMPUTING A TIMF SLICE ISt 

T ■ CN * Kl + C ♦ P + fl) * K? ♦ M * 416667 

E ■ T * R 

WHERE 

T IS THE PROCESSOR TIME SLICE* UNITS ARE 2.4 USEC. 
IS THE ELAPSED TIME SLICE. 



N 



is the slice number (the maximum value fur n is 

OBTAINED FROM WORD 5 UF THE FIRST RECORD OF SMPDISK* 
IF THAT WORD IS ZERO. A DEFAULT VALUE OF SEVEN MILL 
BE USED*). 

C IS THE CORE SPACE USED BY THE TASK IN CHUNKS. 

M IS THE MINIMUM TIME SLICE IN SECONDS. THIS 

NUMBER IS OBTAINED FROM WORD 4 OF THE SWAPD1SK. 
A DEFAULT VALUE UF ONE SECOND WILL Bt USED IF 
THIS WORD IS ZERO. 

Kl IS 4. 

K2 IS 50000. 

P IS PRIUR1TY. 

R IS THE RATIO OF ELAPSED TIME TO PROCESSOR 

TIME. THIS NUMBEH IS OBTAINED FROM WOHD 6 DF 
SWAPDISK. IF THE VALOE OF WORD 6 IS 0* THEN 
2 IS USED) OTHERWISE* WORD 6 MUST BE GREA1ER 
THAN OR EQUAL TO 1. 



D0184 



MCP 



MULTIPLE MCP COOF FILES - 11-06-72 



D0l8i» MCP - MULTIPLE MCP CODE FILES - 11-06-72 PAQE U6 

THIS CHANGE PROVIDES THE ABILITY TO HAVE MULTIPLE MCP CODE FILES 
(WHICH AHE HALT/LUAU CAPABLE) WITHOUT PUNNING DIRECTORY 
RECONSTRUCTION. WHEN MULTIPLF MCPS AHE PRESENT (WITH OR WITHOUT 

NECQNSTRUCTiON)* AND AN IRRECOVERABLE ERROR OCCURS UN THE MCP CODE 
ULE, AN AUTOMATIC SWITCH TO BACKUP MCP WILL BE PERFORMEO. 
IRRECOVERABLE ERRORS ON THE MCP WITH NO BACKUP CODE FILES WILL 
RESULT IN A DEFUNCT "MCP CODE ERR" BEING DISPLAYED. 

BACKUP MCPS WITHOUT RECONSTRUCTION ARE ESTABLISHED IN TWO WAYSI 

1* AT COLD START TIME VIA THE "BACKUPEUS" CARD OR "EU <UNlT 
N0> 8ACKUP EU" AND NOT SPECIFYING A DIRECTORY CUPY 
FREQUENCY VIA THE "FREQUENCY" CARD) 

2« RESERVE WITH RES OK <UNIT N0> AS MCP SYNTAX. DATA FILES 
ARE MOVED OFF THE SPECIFIED AREA AND AN MCP COPIED THERE. 

HALT/LOADS FROM VARIOUS UNITS ARE PUSSIBLE AND NO DIRECTORY 
RECONSTRUCTION WILL OCCUR UNLESS THE USER HAS SPECIFIED SUCH VIA 
iMt COLD START "FREQUENCY" CARD OR RESERVED AN ALTERNATE 
RECONSTRUCTION CAPABLE EU VIA THE "RES DK <UN1T N0> AS ALTERNATE". 

COLD STARTS AND "CM-S" WILL COPY THE NEW MCP TO ALL EU-S DESIGNATED 
TO HAVE MCP CODE FILES. 



DOklO MCH - WORK FLOW MANAGEMENT - 01-15*73 

« * * «i «■ mm m m mmmm ••»• m •• m m m m m m m m m m m m m m • • • 

• His PATCH BEGINS THE IMPLEMENTATION OF WORK FLOW MANAGEMENT* THE 
DOCUMENTATION IS CONTAINED IN WORK FLOW MANAGEMENT USERS MANUAL 
VOLUME I AND WORK FLOW MANAGEMENT USERS MANUAL VOLUMN II, 



U0227 MCP - MCS LOGGING - OP-05-73 

«••»■•• mmm m * «• « * m « * <* h ■» * «* m w m m m m m 

A NEW DCALiiOL INTRINSIC "MCSLflGGER" ALLOWS AN MCS TO MAKE ENTRIES 
INTO ThE SYSTFM LOG. THIS INTRINSIC REPLACES THE PREVIOUS 

"SYSTEMLUG" INSTALLATION INTRINSIC. MCSLQGUER IS A REAL INTRINSIC 
wHiCH HAS ONE PARAMETER. AN ARRAY. WHICH CONTAINS THE INFORMATION 



U0 22f 
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TCI BE LUGGED. THE FORMAT OF THE ARRAY lb DESCRIBED IN THE WORK 

t'LUH MANAGEMENT DOCUMENT, 

wUh THE EXCEPTION OF LUG-fJN ENTRIES* ThE CONTENTS OF THE PASSED 
ARRAY IS NOT MODIFIED* AND THE FlRSlWUHD UF THE AHRAY (ARRAYlOJ) 
MUST CONTAIN A VALID JOB NUMBER. 

FOR LOG-UN* MCSLUGGER WILL SUPPLY A UNIQUE JOB NUMBLR IN WORD ZERO 
UF THE ARRAY, THIS JOB NUMBER MUST BE USED FUR ALL FUTURE LOGGING 
FOR THIS USER* TERMINAL* ETC. 

IF THE GIVEN ENTRY COULD NOT BF ENTERED IN 1 HE LOG. MCSLOGGfcH WILL 
HETuRN A NEGATIVE RESULT INDICATING 1HE SPECIFIC REASON THE REQUEST 
WAS DENIED. VALUES RETURNED BY MCSLUGGER AND THEIR RESPECTIVE 
MEANINGS AREI 

■> ENTRY LOGGED SuCESSFULLY 
-1 •> MEANS EITHEKI 

1. ARRAY TOO SMALL TO CONTAIN THE INFORMATION tl.E** 
LENGTH FIELDS IN LINK WORDS wEkE IN ERROR) 

2. THE INFORMATION REQUIRED MURE THAN 256 WORUS. 

-2 »> THE CALLER IS NOT A VALID MCS.QH HAS NOT 
INITIALISED ITS PRIMARY QUEUE. 

-3 «> A DISK PARITY OCCURED MHILC. ENTERING THE 
RECORD IN THE LOG. 

-h ■> either the major type of the entry was not 
four (mcs record). or the minor type was 
invalid (leq zero or gtr fouh). 

-5 »> the entry was not log-on and wuru zero of 
the array did not contain a valid job 

NUMBER. 
EXAMPLEl 

RESULTls MCSLUGGEK ( JUBINFOt J* * ] J 
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MCP - TASK ATTRIBUTE "HIS10KY" - 02*19-73 



IT SHUULD BE NOTED THAT IN THE MARK II. 3 SYSTEM RELEASE THE VALUES 
KEluRNED BY TASK.MISTURY WERF CHANGED RADICALLY, THERE HAS BEEN 
50M£ FURTHER CHANGE IN MARK 11*4* IT IS EXPECTED THAT THESE VALUES 
WILL BE IN A CONSTANT STATE OF FLUX AS ThEY ARE USED HEAVILY BY THE 
MCP FUH PROCESS CONTKDL AND ONLY INCIDENTALLY BY MCS FOR 
INFORMATION GATHERING. ANY USER PROGRAM WHICH USES THESE VALUES 
SHUULD BE PREPARED FOR MINOR CHANGES WITH EACH SYSTEM RELEASE. 
CUNREnT VALUES MAY BE FOUND BY CUNSULTING THE LIST OF DEFINES 
STARTING AT SEQUENCE NUMBER O50P7200 IN THE MCP LISTING. 



U0273 MCP - FORMMESSAGE ASSIGNED LP - 01*22-73 

A FORMS MESSAGE CAN NOW BE ASSIGNED TO A LINE PRINTER USING THE 
CONTROL MESSAGE! FORM LP<UNITNUMBER> <S1RING LESS THAN OR EQUAL TO 
15 CMARACTEKS>ETX. THE CUNTROL MESSAGE, FORM LP<UNITNUMB£R>ETX# 
RETURNS THE FORMMESSAGE ASSIGNED* IF IT EXISTS, IF A LINEPRINTER 
iS "FM-EU", ANY PRINTER FILE OPENED WITH THE SAME FURMMESSAGE WILL 
BE AUTOMATICALLY ASSIGNED TO THE "FM-ED" LINEPRINTER WITHOUT 
UPtRATOR NOTIFICATION OR INTERVENTION. THE LINEPRINTER WHILE "FM- 
EO" IS NOT AVAILABLE TO A PRlNTEK FILE WHICH DUES NO 1 HAVE THE SAME 
COR ANY) FQRMMESSAUE. 

THE CONTROL MESSAGE CL WILL UNASSIGN THE FORMMESSAGE. 
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00*51 MCSII - NEW FEATURES FflK SYSTEM MCS11 - 02-19-73 

• <■«••• ••••■> a ■ ■■ a ••«■<■•••»• aaan aaaaaa m <• a a m m aaaaaaaa 

.. L H.-. A . AC . 

A LOGICALACK STATUS ITEM FUR A STATION HAS BEEN IMPLEMENTED. 

LOGICALACK MAY §E SET AT ATTACH TIME OR bY USE Of THE ALTER CONTROL 
STATEMENT* SETTING L0G1CALACK CAUSES MCSII TO EXECUTF A SET 
LOGICALACK DCWRITE FOR THE SPECIFIED STATION AND SUBSEQUENTLY 
AUTOMATICALLY LOGICALLY ACKNOWLEDGE THAT STATION WHENEVER A 
TEKMlNATE LOGICALACK STATEMENT IS EXECUTED BY THE DCP FOR THAT 
STATION. 

EXAMPLE! 

ATTACH TC5AA* READY, ENABLED. LOGICALACK* 

ALTER TC5BB LOGICALACK « TRUF> 

iYNTAXi 

<STATUS ITEh>l la ENAdLEO/REAOY/NONALL/MONERR/CONTKOL/NOHELLO/ 

NOACK/AUTOERR/LOGICALACK 
<MOOEM SPECIFICATIQN>U«<EMPTY>/MQO£ M<MUDEM IU> 
<MODEM IO>ll«<MnUtM IUENTIFIFR> 

SEMANTICS! 

THE ATTRIBUTE LIST MAY BE SPECIFIED IN ANY ORDER OR MAY BE <EMPTY>» 
WHERE AN <EMPTY> OPTION IS SPECIFIED* THAT ATTRlBuU UR ATTRIBUTES 
WILL NOT dE UPOATEU FOR THAT <• ST AT ION , 

EXAMPLE! 



MOVE STATION TC5AA TU (0*0, 3> READY AUAPTtR 9 MUUEM M2W 

TERMINAL K5TYPE2I 
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U0251 MCSII - NEW FEATURES FOR SYSTEH MCSII -02-19 

II. UPDATE CONTROL STATEMENT 

THt NEW CONTHOL STATEMENT UPOATF ENABLES THE USER TO INSTRUCT MCSII 
TO CHANGE THE ATTRIBUTES OF A LINE BY MAKING USE OF THE UPDATELINE 
UCMRITE, 

SYNTAX* 

<UHQATE STATEMtNT> » I «UPDATE<L INE ADDRESSxLlNE ATTRIBUTE LIST> 
<LInE ADDRESS! »a(<DCPNUMbER>»<CLUSTER NUMBERS <LINE NUMBER>) 
<LInE ATTRIBUTE LIST>S I" <AOAPTFR CLASS SPEC IF 1CaU0N> 

<MQOEM SPECIFICATI0N> 
<AUAPTER CLASS SPEC IFICAT ION> I I «ADAPTER<ADAPTER CLA5SXM00E PART>/ 

<EMPTY> 

<auapter CLASSX >«<unsigned intfger> 

<MUDE PAHT>U»(M0DEM)/(DIRECT) 

SEMANTICSI 

THIS CONTROL STATEMENT ALLOWS THE USER TU SPECIFY THE ADAPTER CLASS 
AND/OR MOOCM FUR A PASSIVE LINE WHERE PASSIVt IS UNDERSTOOD TO MEAN 
A LINE WHICH HAS NO CURRENT STATION ATTACHMENT* TO EXECUTE AN 
UPDATELINE FUR AN ACTIVE LINE WILL RESULT IN A DCWRlTE ERROR. 

EXAMPLE. 

bPUATECO.3.12) ADAPTER 2 (MODEM) MODEM M1200J 

III. MOVE CONTROL STATEMENT 

EXTENSIONS TO THE MOVE CONTROL STATEMENT HAVE BEEN IMPLEMENTED TO 
MAKE US>E UF THE NEh FEATURES OF DYNAMIC RECONUGURAT ION . 

f-OK THE MOVE STATEMENT. THRFE NEW UPTIUNS WILL CAUSE MCSII TO 
INSTRUCT THE UCC TO CHANGE THE ADAHTER# MUDEM AND TERMINAL 
ATTRIBUTES FUR THE SPECIFIED STATION PRIUR TB THE LOGICAL MOVE. 

SYNTAX I 

<MUvE STATION ST ATEMENT> I J «MUV£ STATIUN <STATION IDXTO PART> 

<REAUY PARIxSTATION ATTRIBUTE LIST> 
<SIaTIUn ATTKlHUTE LIST>u- <FMPTY>/UPDATE<AUAPTEH SPECIF ICAT I 0N> 
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<TERMINAL bPECIUCATION*<MQDEM SPEC IF I CAT I UN> 
<AUAPTEH SPECIFICATIONS I*<EMPTY>/ADAPTEH<AUAP1ER TYH£> 
<AUAPTEH TYPE>I t«<UNSIGNED INTE6ER> 

<TtHMlNAL SPECIFICATIONS I «<EMPTY>/U RMINAL< I ERM1NAL ID> 
<TtRMlNAL ID>« »«<T£RMlNAL 1DENTIHER> 

AV. DP CONTROL STATEMENT 

A NfcW CONTROL STATEMENT* UP» ALLOWS ThE USER TU CALL THE SYSTEM/ 
UCSTATUS PROGRAM FOR MCSII* 

SYNTAX! 

<D(JMP STATEMENTS!* DP<UUTPUT PaRTX<OPT10NS L1ST>) 
<OUTPUT PARTI l*SITE/REMOTE 

SEMANTICS* 

THL DP STATEMENT CAUSES SYSTFM/MCSII TO PROCESS SYSTEM/DCSTATUS • 
IHt SHE UUTPUT PAHT WILL CAUSE THAT PROGRAM TU OUTPUT ITS ANALYSIS 
10 A LINE PRINTER OF THt SITE# THL REMOTE OPUQN WILL CAUSE 
THtOUTPUT TO BE SENT TO 1 HE REMOTE CALLEK. THE <0PTl0NS> AVAILABLE 
ARE DEFINED IN THE SYSTEM/ DCSlAlUS DOCUMENTATION. 

OP REMOTE (STATION 4> TERMINAL 21 LINE 1# 1 » \'l)l 

V. HELEASE CONTROL STATEMENT 

MCSII WILL NOW ACCEPT CONTROL OF STATiONS FROM ANUTMER MCS AND A 
NEW CONTROL S1ATEMENT RELEASE ALLOWS THE USER TO SPECIFY THAT A 

station currently undeh mcsii s cuntrul may Ht passed to another 

MCS, 

SYNTAXI 

<RELEASE STATEMENTS »*KELEASF <STAT10N ID> TO <MCS> 10> 
<MCS IO>l«»<MCS NAME>/MCS NUMbER> 
<MCS NAME«l"<MCS IUENTIFIER> 
<MCS NUMBER>t l«<UNSIl»NED 1NTFGER> 



SEMANTICS! 
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MCSIl WILL ACCEPT CONTROL OF A STATION FROM ANUTHER MCS. THE 
STATUS OPTIONS* READY AND ENABLED* MLL tit. SET TO THt VALUES OF THE 
STATION STATUS FROM THE SYSTEM* INDICATEU IN THE PASSING MESSAGE I. 
E.» IF THE STATION IS NOT READY WHEN IT IS KECElVED IT WILL BE 
LEFT NOT READY BY MCSIl UNTIL AN ALTLR STATEMENT TO CHANGE THAT 
ITtM IS MADE BY THE USER. 

THE RELEASE CONTRUL STATEMENT HlLL UNCONDITIONALLY PASS THE 
SPtClFIEU STATION TO THE SPECIFIED MCS. IF THAT MCS IS NOT 
CURRENTLY RUNNING THE SYSTLM WILL ATTEMPT TO FIRE IT UP. 

EXAMPLE! 

RELEASE TC5AA TO SYSTEM/C ANDFI 

VI. SM SPO COMMAND 



IT IS NOW POSSIBLE TO ENTER MCSIl CONTROL COMMANDS DIRECTLY FROM 
I HE. SPO. THIS HAS BEEN IMPLEMENTED USING THE SM - SEND TO MCS - 
SPu COMMAND. 

SYNTAXI 

<MlX INDEX> SMI <MCSI1 CONTROL STATEMENT> 
<MIX 1NDEX> «l« MIX NUMBEH OF MCSIl STACK 
<MCSII CONTROL STATEMENT J> J l« <CONTHOL STITEMENT «LOCK> 

HEFER TO THE RELEVANT DOCUMENTATION OF MCSH FOR THE SYNTAX OF 
<CUNTROL STATEMENT BLOCK> 

EXAMPLE. 

713 SM I ATTACH M332J ALTER M332 ENABLE ■ TRUE 
713 SM I TO ALL OATACOM FINISHES IN TEN MINUTES 

IF A SYNTAX EHROH IS DETECTED IN THE CONTROL STATEMENT* THEN THE 
MESSAGE ***5ITE ERR*** WILL BE DISPLAYED. IF A DCWRITE ERROR IS 
UEIECTEO. THEN THE MESSAGE ***DCWRIT£ EKROR*** WILL BE DISPLAYED* 

IN BUTH CASES. THE PRINTER FILE WILL BE OPENED AM) THE RELEVANT 
SYNTACTIC ERKOR INFORMATION MILL BE WRITTEN TO THE FlLE« 
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NDL 



U0i6/ NDL - INITIALIZE NEIRY - 10-23-72 

• • ■» m m m m m m • •■.<■■»«••■>«•■> »■>•»«•• m a « a a> at * * a 

this patch adds the ability to reset the retry byte tu its initial 

VALUE* SYNTAX ISt 

initialize retry 
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IHij> PATCH AUDS A NtW BYTE VARIABLE TO THE EXISTING LIST I IR« THIS 
BYTE VAHlABLE IS USED TO INTERROGATE THE CLUSTER IK REGISTER* IT 
IS ALSO NOW POSSIBLE TO TKEAT A BYTE VARIABLE AS A BITVARIABLE BY 
DESIGNATING ONE HIT OF THAT bYTF VARIAbLt: 

<BIT VARlABLE>tl« <bYTE VARI ABLE> £<BI T DESIGNATOR] 

LXAMPLLl 

TALLY tlHfl] ■ TRUE 
IF iKtVI THEN 

AUX CLINECTALLYIOJ)) t lb 1 » 
LINE <T0Gf03). 

THt NEw READ ONLY BYTE VARIABLE* Ik* WILL ENABLt THE USER TO 
INIEHRUGATE THE "INPUT REGISTER" OF THE DCP. IF IR lb STORED INTU 
ANOTHER BYTE VARIABLE ONLY BITS Q-7 ARE STORED. IR BIT DESIGNATORS 
MAY BE 0-9. 



uoi69 inDl - Switch gu to statement - io-*3-72 



THt switch gu to statement allows thl uslr to branch to a label 



doi69 ndl - switch go to statement - 10-23-72 PAUE m 

«•■•»• a a • - •■••>•* as a a aaaaaaaaa a waaaa*a» 

DEPENDING ON THE VALUE OF THE SPECIFIED BYTE VARIABLE. 

<SWITCH GO TO STATEMENTS l«Gfl TO <BYTE VARIABLES 
ULABEL LIST>). 

<LABEL LIST>I I «<LAB£L>/<LABEL>»<LABEL LIST> 
EXAMPLES 

UO TQ TALLYtOJ* (7. 10* 1). 

THE ABOVE STATEMENT WOULD EFFECTIVELY GENERATE THE FULLOWINGI 

IF TALLYCO] EUUALS THEN GO TO 7. 
IF TALLYtU) EUUALb 1 THEN GO TO 10. 
IF TALLYI01 EQUALS 2 THEN GO TO 1. 

IF THE VALUE OF THE <BYTE VARIABLE> IS OUT OF RANGE. PROCESSING 
WILL CONTINUE AT THE NEXT STATEMENT. 

THE COMMA IMMEDIATELY FULLOWING THE BYTE VARIABLE IS OPTIONAL. 
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CARRIAGE CONTROL - 10-30-72 



THIS PATCH DUES THE FOLLOWING! 

1« DELETES THE VARIANT TOGGLE "SMPLINES" WHICH WAS NOT 
IMPLEMENTED CORRECTLY AND WAS misleading; 

2. ADDS VARIANT TOGGLE "SKIP" WHICH IS SET BY LOGICAL I/O OR 
MCS-S TO INOICATE SKIP Tn CHANNEL ACTION* 

J. ADDS VARIANT TOGGLE "SPACE" WHICH IS SET BY LOGICAL I/O 
CR MCS-S TO INDICATE SPACE LINES ACTION; 

<♦. ADDS VARIANT TOGGLE "TAB" WHICH MAY BE SET BY MCS TO 

INOICATE tabulation; 

5. ADOS BYTE VARIABLE "SKI? CONTROL" WHICH CONTAINS THE 
NUMBER OF SPACES OH ?ME CHANNEL NUMBER TO SKIP TO. IT 
CAN BE SET BY LOGICAL I/O OR MCS-S. 
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NUL - NUL & UCPPROUEN UNITE - 10-30-^2 



NDL NGw CALLS DCPPRGGEN AS A PROCEDURE RATHER THAN HUNNING IT AS A 
PHuttKAM, THUS* DCPPRQGEN MUST til BOUNU TO NDL RRIOH TO EXFCuTIUN. 
UNLY ONE PRINTER F ILE IS NUW PHUOUCED bY NUL/DCPPRUGEN AND SYNTAX 
ERRORS IN EITHLR PORTION WILL CAUSE "SMX" NOTIFICATION* SYSTEM/ 
UCPCOOE AND SYSTEM/NIF ARE NOT LtlCKEU IF SYNTAX tRRORS OCCUR IN 
EITHER PHASE. SYSTEM/REQUEST I MAbt IS NEVER LOCKED* 

I Ht METHOD OF CHEATING SYSTEM/NDL HAS NO* CHANUEU. AFTER COMPILING 
SYdTEM/OEPPRUGEN AND SYSTEM/NDL KITH ALGOL THE B1NUEK MUST HE RUN 
TO tilNQ SYSTEM/DCPPROGEN INTfl SYSTEM/NUL* WHEN BlNUlNG* A STACK 
CAHD ?STACK»2000 MUST BE PUT IN THE CONTHQL UECK TU AVOID STACK 
OVLRFLOW. THUb A PROPER BIND DFCK WUULD bE» 

VblND SYSTEM/NDL BINDER LIBRARY 

?dlNUER FILE MOST * SYSTEM/NHL 

VSTACK=2000 

VUATA 

dlNU UEPPROGEN FKOM SYS1EM/=JSTUP 

VEND 
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PACKD1H 



uoua PAtKUIR 



09-25-7* 



PAHT I» HUW TO USE PACKUIH 

rAtKUlH CAN BE USED 10 LIST DlSKPACK AND NATIVE MODE DISK 
UlNECTURlEs MUCH IN THE WAY L I S I D I RECTORY LISTS HtAD-PFR-TRACK 
ULtS. THE PARAMETER PASSED Tfl PACKUIR SPECIFIES THE DIRECTORY TO 
bt LISTEU AND iMt FORMAT Of THE LISTING. 

inhut parameter 



THE INPUT SHOULD BE A STRING Uf CHAKACTERS ENCLOSED IN UUOTES. 
THIS STRING IS MADE UP OF "KEYWORD SUBSTRINGS" (CONTAINING LETTERS. 
DIGITS, SLASHES. AND EuUAL SIGNS) THAT ARE SEPARATED BY BLANKS AND/ 
UR CUMMAS. THAT IS, A PARTICULAR KEY PHRASE MAY NqT CONTAIN ANY 
EMBEDDED BLANKS BUT PHRASES MAY BE SEPARATED BY AN ARBITRARY NUMBER 
Uf BLANKS AND COMMAS. THE KFY PHRASES CAN OCCUR IN ANY ORDER ON 
(HE RUN CAHD. 

THL fULLOWlNG KEY PHRASES ARE ACCEPTEDI 

MAP SPECIFIES THAT THE DISK CHECKERBOARD (A DISPLAY OF 
ALLUCATEU AND AVAILABLE SEGMENTS) IS TO BE PRINTED. 
DEFAULT IS NUMAP. 

NOMAP SUPPRESSES THE CHECKERBOARD LISTING (DEFAULT VALUE). 

DISK SPECIMES THAT THE DIRECTORY TO BE LISTED IS ON A 
HEAD-PEH-TRACK DISK UNIT (I.E.* KIND ■ DISK). 
DEFAULT IS ON DISK PACK (KIND « PACK). 

NAME a ABC/DEF/.../XY2 

TMlb INDICATES THE NAME Of THE DIRECTORY TO BE LISTED. 
IN ThE CASE OF DISK PACKS, THE flRST GUALIFIER IS 
USED FUR THE PACK NAME. IF THE WHOLE PACK IS TO BE 
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LISTED* JUST CODE NAME 
ABC/OEF/.../XYZ 



PACKNAME. 



THIS IS THE SAME AS NAME ■ AbC/DtF / . . ./XYZ > ONLY THE 
NAME CANNOT BE A HESfRVEU KEYWORD (SEE ABUVE). 

UUTHUT LISTING 

BASICALLY* THE SAME FOUR LISTINGS PRUVIDED BY LI6TDIRECT0RY ARE 
PRUDUCEO BY PACKDIH. HOWEVER* CERTAIN ADDITIONAL DIAGNOSTIC 
OUTPUTS ARE AVAILABLE WITH PaCKDIR. 

MAIN LISTINGS! THE FIRST TWO LISTINGS ARt THE MAIN OUTPUT PRODUCED* 
THE FIRST LISTING IS A DISPLAY OF ALL THt FILE NAMES IN THE 
OlHECTURY (ilVEN BY NAME*. THIS LISTING IS FORMATTED AS A TREE 
STHUCTUHE TU INDICATE THE VARIOUS SUbLEVELS uF TH£ FILES IN THE 
UIMECTORY. IT IS PRINTED IN THE SAME URDEh AS THE FILES OCCUR IN 
THt DIRECTORY. THE SECOND llSTlNG INDICATES LOCATIONS ON THE 
HEADEH AND ALL THE ROwS OF EACH FILE blVEN IN THE FIRST LISTING. 
THE "LGCATtON" INCI.UUES THE UNIT NUMBER AND StGMENT ADDRESS. 
UNFORTUNATELY. THE "UNIT NUMBER" PRINTED FOR THE HEADERS IS ALWAYS 
A ONE (THE BASE PACK INDEX NUMBER) RATHER THAN THF ACTUAL 
ELECTRONICS NUMBER. 

MAP LISTINGS! THESE TWO LISTINGS (PRODUCED ONLY IF MAP IS 
SPtCIFJLED) GIVE AN 1NUICAIIUN OF HOW MUCh SPACE IS AVAILABLE AND 

IS IN USE ON THE VULUMtS BEING MAPPtO. IF NAME* 
SUBUIHECTUKY* THESE LISI1NGS ARE MISLEADING. 
ACCUUNT IS TAKEN OF THE VOLUME LABLLS ON THE DISK 
PACKS. FINALLY* THE HEADERS ARE INCORRECTLY INDICATED AS BEING ON 
UNIT ONE* CAUSING THE. CHECKEKBQAHD TO dE INCORRECTLY ANALYZED. 

THE USE OF THE OPERATOR COMMAND DlR 



HUw MUCH SPACE 

selects only a 
furthermore* no 



THE OPERATOR CAN INVOKE ANY ONE QF THREE DIRECTORY LISTING PROGRAMS 
wllh THE KEYbOARD COMMAND UTR. IF HE SIMPLY IN^UT OIR WITH NO 
PANAMETERS. LIS1D1KECT0RY IS CALLED TU LiM THE MASTER HFAO-PER- 
TRACK (HPT) DIHECTORY. IN nRDER TO LIST THE UIRECTORY OF AN 
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"Interchange disk pack, me should INPUT! 

DIR IC» PKNN 

OR 

DIR IC» PACKNAME 

IN fHIS CASE. LISTPACK IS CALLED. IT IS IMPORTANT TMAT "IC" APPEAR 

FIRST* W1TMUUT ANY IMBEDDED BLANKS. ANY OTMER INPUT CAUSES KEYIN 

10 PLACE QUOTE MARKS AROUND TME PARAMETER AND PASS THE ENTIRE 

STRING TO PACKDIR. NOTICE THAT THE OPERATOR SHOULD NOT INPUT THE 
WUUTES. 

PART III LOGIC DESCRIPTION UF PACKDIR 

PACKUlR MS OERIVED FHUM L ISTDI Hfc CTUR Y , AND ITS BASIC FLOW IS MUCH 
IHt SAME* FILES USED BY PACKDIR ARE! 

LINE - ALL PRINTED OUTPUT IS PRODUCED ON THIS FILE WITH A 
RECUHUSlZE OF 132 CHARACTERS 122 NURDS)* 

INFC - AN INTERMEDIATE WORK FILE THAT IS USED TO STORE THE 
HEADER ANU ROW LOCATIONS. INFO IS ACCESSED 
SEQUENTIALLY WITH A RECORD SIZE OF 30 CHARACTERS (5 
WURDS) AND IS PURGED AT THE END Of A JOB. 



D 



A FILE TMAT IS USED 1U OPEN ThE MASTER DIRECTORY AND 
ALL THE FILES AND SUBFILES IN THAT DIRECTORY. 



FLUw OF PACKUIR 

*» m m m mm m m M m •*• m m 

AFTER THE INPUT PARAMETER STRINU IS ANALYZED* PACKDIR OPENS THE 
SELECTED UIRECTUHY AND MAKES UP TU FUUN PASSES! 



first pass 



DURING 1HI& PASS, EACH ULt IS OPENED, ITS ROW 
ANU HEADER LOCATIONS ARE SAVED ON INFO, AND ITS 
NAME DISPLAYED ON LINE. 1 HE MAIN RUUTINE f OR 
THE FIRS1 PASS IS PHOCEUE, WHICH IS CALLED 
RECURSIVELY Tf) HANDLE SUBFILES. ISlNCE THERE 
IS NU WAY, CURRENTLY, TU SIMPLY READ THE 
HEADlHS UF FILES ON DISK PACKS* AS 
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SECOND PASS 



THIRD PaSS 



LAST PASS 



LISTDIHECTQRY DOES FOR HPT DISK FILES. PACKDIR 
MUST UPEN ALL THE FILES To OblAiN THE ROW 
INFORMATION.) 

DURING THIS PASS* THL RU* LOCATIONS ARE READ 
BACK FROM INFO* DISPLAYED ON LINE AND* IF MAP 

IS SELECTED* INPUT TO THE SORT. THE MAIN 

ROUTINES FUR THIS PASS ARE IK, WHICH READS THE 

RECORDS FROM 1N»0 AND SENDS THEM 10 THE SORT* 

AND AREAMAP, WHICh PRINTS THE HEADER AN HOW 
ADDRESSES. 

(ONLY IF MAPPING) DOR1NG THIS PASS* WHICH IS 
THE OUTPUT uF Tht SORT ON ROW LOCATIONS* "AkEaS 
THAT CAN BE MADE AVAILABLE WITH THE REMOVAL OF 
ONE FILE" ARE DISPLAYED ON LINE AND THE SORTED 
ROW LOCATIONS ARE SAVED ON INFO. 
(UNFORTUNATELY. THESE ARE MISLEADING BECAUSE 
THE HEADER AND ROM UNIT NUMBERS ARE 
INCOMPATIBLE.) THE ROUTINE UP RETRIEVES THE 
RECORDS ERUM THE SORT* SAVES THEM UN INFO, AND 
CALLS PRINT TO PRODUCE THE REPORT. 

(ONLY IF MAPPING) UURINU THIS PASS* THE SORTED 
ROW LUCATIUNS ARE READ BACK ► ROM INFO* AND THE 
ROUTINE LISTIT IS CALLED TO PRINT THE 
CHECKERBOARDS OF THE VARIOUS UMTS (THESE AGAIN 
ARE WRONG BECAUSE OE TMt UNIT PROBLtM). 
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PL/I 



U0U2 PL! - PLI IQ IMPhUVEMEnTS - 02-1W3 

THLHE. HAS HEEN A GENERAL IMPROVEMENT ()F THE STREAM I/O FFATURES IN 
PH. A FULL EXPLANATION OF THF FUNCTION QF MUST OF THESF FEATURES 
CAN BE OBTAINED FRtlM ThE PL/I LANGUAGE INFORMATION MANUAL (5000201). 

OPtN STATEMENT 



THE FOLLOWING OPtN OPTIONS HAVE BEEN IMPLEMENTED! 

1. PaGESIZE (<SCALAR-EXPkESS10N>) 

2. LINE51ZC (<SCALAR-EXPRESSI0N>) 

WHERE THE EXPRESSION NEPRESENTS LINE SIZE. IN CHARACTERS* 
FUR A STKtAM OUIPUT FILE. 

A NEW OPEN OPTION HAS BEEN AUDEf) FUR STREAM OUTPUT FlLESl 
TAB (<SCALAR-EXPRESSI0N># ...) 

WHERF THE <SCALAR-EXPRFSSION> LIST* DEFINES THE TAB 
COLUMNS TO BE USED FOR LIST AND UATA DIRECTED PUT 
STATEMENTS* OK FUR TAB FliRMAT ITEMS. 

FHL EXPRESSIONS MUST BE ASCENDING* POSITIVE AND LESS THAN THE FILE 
LINE SIZE* ALL ERHUNEUUS EXPRESSIONS WILL BE IGNORED. 

EXAMPLE! 

OPEN F1LF (SYSPRlNT) LlNFSlZF (132) TaB (20*40*105)* 

IF USER TAB SETTINGS ARE NOT SUPPLIED* DEFAULT TABS WILL BE USED 
(1* 25* 4V, n* 47. 121* ...). 

BU1LTIN FUNCTION 
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TMtS£ STREAM-IO-RELATED BUILT1N FONCT10NS ARE NOW IMPLEMENTED! 

It COUNT (<FILE-NAML>) 

2. LINENU (<F ILE-NAME>) 

«i.lE...-.!.. L222.IS 

THE FOLLOWING FORMAT ITEMS HAVE BEEN IMPLEMENTED* 

1. LINE (<SCALAR-EXPRESSION>) 

WHERE THE EXPRESSION REPRESENTS THE NEXT LINE NUMBER TO 
BE ADVANCED TO. 

2* B-FORMAT ITEM (BIT-STRING FORMAT) 

3. P-FURMAT ITEM (PICTURE FORMAT) 
4* TAB-FORMAT ITEM 

WHICH CAUSES MOVEMENT TO THE NEXT USER OR DEFAULT TAB 
SETTING. RELATIVE TO 1 HE CURRENT COLUMN. 

UA1A-DIRECTEU 10 

GET-OATA AND PUT-DATA STATEMENTS ARE NOW FULLY IMPLEMENTED. 
TYRE CONVERSION 



COMPLETE DATA TYPE CONVERSIONS ARt. NOW PERFORMED F Oh DATA-LIST AND 
STREAM ITEMS. 

EXAMPLE! 

OCL CS CHARC6) INITIAL (-0123. 4-); 
POT EDIT(CS) (F(10))» 

bif STRINGS ARE NOW ALLUWFD IN INPUT DATA STKEAMb. 

WAHNlNGl <, 

IRE DEFAULT "UNITS" ATTRIBUTE FOR STRtAM FILES WILL BE 
CHARACTERS. THEHEFORE A FRF DfeCLAKAllON FOH A PNINT FILt» 

OCL FILE (PRINT) ENV ( MAXRECSIZE*22 ) J 
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PAUL 1A2 



wlLL NOT PRODUCE THE DESIRFU RESULT THE USER SHOULD SPECIFY 
UNITS a -WORDS- UK MAKRECSI2F * 132. TO GET THE PROPER RFCORD 
SUE, (NOTE! THE DASH HAS BEEN USEU FUR THE SINGLE QUOU.) 
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PLI - PLI BINDING - 0?-19-(T3 



PL/I TC PL/I BINDING IS NOW IMPLEMENTED. THE BINDING PROCESS WILL 
GENERALLY CONSIST UF BINDING A GROUP OF EXTERNAL PROCEDURES TO A 
"HUSf" PROCEDURE. COMMUNICATION BETWEEN THE PROCEDURES IS 
PERFURMEO THROUGH COMMON EXTFRNAL DECLARATIONS WITHIN THE 
PRUCEDURES AND PARAMETERS. ANY PL/I PROCEDURE WITHOUT PARAMETERS 
MAY dE DESIGNATED AS THE "HOST" PROCEDURE. 

10 BIND A SEPARATE PROCEOOKE TO A HOST. THE SEPARATE PROCEDURE MOST 
BE UECLARED EXTERNAL IN THE HOST. 

HOSTJPRGO 

OCL SEPARATE ENTRY (CHAKCO) EXTERNAL* 

DCL CHAR CHARtfl) I NI T ( -ABCDEF GH- ) J 

CALL SEPAHATECCHAK) J 
END HOST; 

sepahatesProc(C); 

dcl c chan(*)* 

put list(c); 
enu separate 

tnute that the uash has been usfd for tht single uuute) 

if the name of the code file of "host" is host/host and the name of 
the cude file of "separate" is sepanate/st pahate then the bind deck 
is: 

?BlND BOUND WITH HINDER LIBRARY 
VBINDER FILL HOS I = HOST/HOST 
VDATa 

HIND SEPARATE FROM SEPARATE/SEPARATE I 
STuP 
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VEND 



WHEN "HOUND" IS HUN. THE RESULT IS THE CHARACTER bTKlNti -ABCDEFGH- 
UN THE SYSPRlNl RRINT FILE. 

RESTRICTIONS 

1. ANY EXTERNAL ENTKY CUNSTANT PASSED A PARAMETER CAN ONLY BE HOUND 
TU A MUSI. (THE PRUCEUUHE "SEPARATE* IS UNLY VALlU WHEN BOUND. 
IF THE CODE FILE SEHAHAT E/SEPARATE lb RUN* AN INVALID OPERATOR 
WILL RESULT.) ONLY A PROCFDURE WITH NU PARAMETERS MAY HE USED 
AS A HOST. 

2. THE FIRST EXTERNAL ENTRY CUNSTANT MUST HE SPECIFIED IN THE BIND 

DECK. 

LXAMPLEl 

HHlPROCj 

DCL SEP1 ENTRY EXT, 

sep2 entry ccmarc*))ext; 
call sep2(-ahcdefg->» 
end hh; 

SEPl IRRUCJ 
SEP2tENTRY(C)l 

dcl c char(*)> 
put listioi 

END StPlI 

CNOTE THAT THt DASH HAS BtEN USLD FOR THE SiNGLt UUUTE) 

ASSuMlNli THE CODE FILE NAME FOR HH IS H# THE BIND SHOULD BE AS 

FOLLOWS I 

?H1ND U BINDER LIBRARY 
?BiND FILE HOST « H 
?UATA 

HINO SEPl FROM Sf 
?END 

WHEN B IS RUN* THEN THE RESULT WILL BE THE CHARACTER STRING 
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"AbCUEFQ" ON SYSPHINT. 
HANDLING OF STATIC EXTERNAL! 



IK A VAHlAHLE lb DECLARED STATIC EXTtKNAL IN bOTH THE HOST AND THE 
SEPARATE PRUCEUURF* THE INITIAL VALUEb IN THE HOST AHE THE ONES 
USED WHEN bOUNU. I f A VAHIAHLE lb DECLARED bTATK EATERNAL IN ONLY 
THE SEPAHATt PROCEDURE. THE INITIAL VALOLS OF THAT VARIAbLE ARE 

used* 

LXAMPLE 

MUbT JPKQC* 

DCL A(4) bTATIC EXTERNAL 
INI T (1,2.3.4)* 

SEPARATE ENTRY EXTERNAL; 
CALL SEPARATE; 
LNU host; 

bEPARATElPROC; 

DCL AC4) bTATIC EXTERNAL IN IT ( 5 . 6* 7 » H ) » 

A1U> STATIC EXTERNAL INIT C 9* 10, 1 1 * 1 2» ) J 
PUT DATA IA,A1)I 

END separate; 

hHln bOLNO AND RUN THE RESULT WILL BE 

A(l) * 1- A(Z) « 2, A(3) « 3, A<4) » 4, 
A1U) * y, A1C?) « 10* AK3) ■ 11, Al(4) * 1 2 » 

NOTE THAT ANY EXTERNAL STATIC* CONTROLLED OK bASED VARIABLE SHOULD 
HE INITIALIZED BEFORE IT IS USED IN A DECLARATION; 

tXAMPLEl 

DCL 

1 S1(X) STATIC* 

2 A(X) INn<6(l)»B(?),bC3),B(4))» 
1 SZ STATIC* 

2 b ( ? * X ) INIT(C(1),C(2;»C(3),C(4))» 
1 S3 STATIC* 



U0143 



PLI - PLI BINDING - 02-19-73 



PAliE 185 



2 C(2*X) INIT(1*2#3.4)» 
X STATIC IKITC2 >l 

SHUULO BE DECLARED IN THIS ORDERI 

UCL 

X STATIC 1NITC2)* 

1 S3 STATIC* 

2 C(2*X) INIT(1»2»3»4)> 
1 S2 STATIC* 

2 B(2*X) lNlT<C<l)*C<2)»C<3)»C(4))» 
1 SICX) STATIC* 

2 A ( X ) INn(B(l)*H(2)»o(3)»B(4))l 

VARIABLES WHOSE ORDER OF DECLARATION WILL CAUSl THE PROGRAM TO RUN 
INCORRECTLY WHEN BOUND WILL GET A LEVEL THREE ERROR MESSAGE* 

NQttlNUlNFU CONTROL CARD QPUON 

IF NQBlNDlNFO IS SET* THE COMPIltR WILL NUT PUT INFORMATION FOR THE 
BINDER IN THE CODE FILE. NOBINDlNfO IS RESfT BV DEFAULT* 



U0A55 PLI - PACKED PICTURES - 01-1W3 

A NEW PICTURE CLASSIFICATION HAS BfcEN ADDED TU THl PLI LANGUAGE. 
THE CLASSIFICATION IS PACKED PICTURES AND ALLOWS THE FOLLOWING 
PICTURE CHARACTERS IN A PICTURE ATTRIBUTE* 

H SPECIFIES THAT THE ASSOCIATED POSITIUN WILL CONTAIN A 4- 
BIT PACKED DECIMAL DIGIT 

S SPLCIFltS THAT THL ASSOCIATED POSITION WILL CONTAIN A 
PACKED 4-BIT SIGN (EITHER 1101 UR 1100) 



V SPECIFIES THE iMPLltD PACKED DECIMAL POINT 
EXAMPLE* 

DCL Pi PICTURE "HHHVHHS"; 
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THE PRECISION Of PI IS (5.2) AND PI WILL OCCUPY SIX 4- 
BIT BYTES INTERNALLY. 

A USER SHOULD USE PACKED PICTURES INSTEAD Of THE DECIMAL flXEO 
ATTNIBUTLS TO INSURE THE CORRECT INTERNAL HEPRESENTION fOR NON- 
dURRUUGHS PLI PROGRAMS. 



D017« PLI - ENTRY VARIABLES IMPLEMENTED - 10-30-72 

•» a a a a ■§ ■ s a <•:»<••» ■•••■••ilia mm a • ■» a a b a • a • aaaaaaaa 

ENTRY VARIABLES ARE NOW IMPLEMENTED. AT THIS TIME* THERE IS NO 
PARAMETER CHECKING. 



U01/5 PLI - EXPLICIT ATTRIBUTE IMPLEMENTED - l0-30_72 

A UEfAULT DECLARATION Of DfT (NOT EXPLICIT) ERROR WILL CAUSE AN 

ERROR MESSAGE TO BE GENERATED fOR ANY IDENTIFIER NOT EXPLICITLY 
DECkARED. 



D0225 PLI - PLI fILE DECLARATIONS - 12-1B-73 

aaaaa aaa a aaa aaaa aaaaaaaaaaaa a aaaaaaaa 

HUE DECLARATIONS IN PL/i HAVE BEEN EXPANDED AND IMPROVED* 
PL/i LANGUAGE FILE ATTNlBUTES 



SYNTAX CHECKING Of PL/I FILF ATTRIBUIES HAS BEEN EXTENDED. THE 
FOLLOWING AITRIBUTES HAVE NOT BEEN IMPLEMENTED AND A SYNTAX ERROR 
WILL BE GENERATED If AN ATTEMPT IS MADE 10 SPECIFY THEM. 

BACKWARDS. KEYED. EXCLUSIVE. UPDATE. DIRECT 

ATTEMPTING TO SET CUNfLlCTINb PL/I ATTRIbUTES EXCEPT EXCLUSIVE WILL 
NU« GENERATE A SYNTAX EKKOR. 

IHt FOLLOWING IS A LIST OF HL/J PRE ATTRlBDTES AND THE ATTRIBUTES 
THAT DU NUT CONPLICT WITH THtM. 



00225 PLI - PL! RLE DECLAMATIONS - 12-16-73 
STREAM INPUT* UUTPUT PHINT 
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RECORD 



INPUT 



INPUT* UUTPUI. UPDATE* SEQUENTIAL* UIRECT* 
bACKWAKUS* KEYED 

STREAM* RECORD* SEQUENTIAL* UIRECT* BACKWARDS* 
KEYED 



OUTPUT STREAM* HECORl)* SEQUENTIAL* DIRECT, PRINT* KEYED 

UPDATE HECORD* SEQUENTIAL* DIRECT* KEYED 

SEQUENTIAL RECORD. INPUT. UUTPUT* UPDATE* dACKWARDS, KEYED 

UIHIECT INPUT* UUTPUT* UPDATE* KEYED 

BACKWARDS RECORD* INPUT* SEQUENTIAL 

PRINT STREAM* UuTPUT 

KEYED RECORD* INPUT* OUTPUT* UPUATfc* SEQUENTIAL* DIRECT 
PL/I SYSTEM FILE ATTRIBUTES 



HLE OPTIONS OR ENVIRONMENT SECTION CURRtNT SYNTAX! 

1* THE CURRtNT SYNTAX h OK KIND* BUYERS* SPACE* MAXRECSIZE 
AND SAVEFACTUR WILL STILL BE HECQGNlZtO. 

d* BLOCKING MILL NO LONGER BE RECOGNIZED* BLOCISSIZE SHOULD 
BE USED. 

J. THE SYNTAX FOR TITLE HAS BEEN CHANGED. SEE TITLE UNDER 
THE NEW SYNTAX* 

INSIDE A FILE OPTIUN OR ENVIRONMENT DECLARATION A SYSTEM FILE 
ATTHlBUTE HAS ONt OF FOUR SPECIFICATIONS. 

1. NUMtRIC HEQUIRES A OFCtMAL INTEGER-CONSTANT GREATER THAN 

ZERU SPECIFICATION. E.G. MAXRECSIZE ■ 10. AREAS 
a ?» • • • 

2. MNEMONIC HEQUIRES A CHARACTER-STRING MNEMONIC ENCLOSED IN 

SINbLE UUOTfcS* E.G. KIND « -DISK-, MYUSE « - 
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OUT-»... 

STRING REQUIRES A CHARACTER STRING ENCLOSED IN SINGLE 
UUDTES# E.fc. FORMMESSAGE « -USE FOR 1040-*... 

SUBTITLE IS A STRING VALUtU ATTHlbUTE THAT HA& SOME SYNTAX 
RESTRICTIONS. SUbTlTLES WITH SLASHtS MUST BE 
ENCLOSED IN UHUBLE OUUIES AND OOUBLE QUOTES MAY 
ONLY APPEAR IN PAIRS ENCLOSING AN ENTIRE 
&UBTITLE. E.G. TITLE « -A/"B/C"/U-« 



5* NULL VALID UNLY FUH ATTRIBUTES WITH THE MNEMONICS UF - 
TRUE- AND -FALSE-* 1HE ATTRIBUTE WILL BE SET TD 
TRUE. E.G. UPTIUNAL* . ..IS THE SAME AS OPTIONAL 
"-THUE-* ... 

CNUTE THAT THE UASH HAS BEEN USFD FOH THE SINGLE ttUOTE.) 

SEMANTICS! 

<EiLt OPTIONS UtCLAKATIUN>I !■ 

UPTI0NSC<INITIAL SYSTEM FILE ATTRIBUTE LIST>) 
<FILE ENVIRONMENT DECLARAT I ON> I t « 

£NVlRONMENTC<INI riAL SYSTEM FILE ATTRIBUTE LIST>) 
<INITIAL SYSTEM FILE ATTRIBUTE LlST>l»s 

<INITIAL SYSTEM FILE ATTRIBUTE>/ 

<INU1AL SYSTEM FILE ATTRIBUTE LIST>» 
<IN1TIAL SYSTEM FILE ATTRIBUTE> 
<INITIAL SYSTEM FILE A TTR I BUTE> t » * 

•tlNTEGER VALUE SYSTEM FILE ATTRIBuTE> * <iNl EGER-LONSTANT>/ 

<STRING VALUED SYSTEM FILE ATTRIBUTE> * <STRING>/ 

<HEAL VALUEU 5YSTEM FILE ATTRIBUTE> «• <INl EGER-CUNSTANT>/ 

^BOOLEAN VALUED SYSTEM FILE ATTRlBUTE> » -<BOUL£AN MNEMONlC>-/ 

<BUULEAN VALUED SYSTLM FILE ATTRIBUTED 

DENSITY = -<DENSITY MNEMONIC>-/ 

PARITY a -<PARITY MNEMONlC>-/ 

KIND * -<KIND QPTION>-/ 

LABELTYPF * -<LAbELTYPE MNEMnNlO-/ 

ExTMQOE e -<EXTMUDE MNEMUNIC>-/ 
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PROTECTION « -<PKOTfctTIQN MNFMONIO-/ 

MVUSe * -<MYUSE MNEM0NlC>-/ 

OTHERUSE * -<UTHEKUSE MNEMONIC**/ 

SPEED * -<SPEE0 MNEMUNIC>-/ 

DIRECTION * -<DIRECTIUN MNEMflNlO-/ 

SWEMUDE * -<SIZEM0DE MNEMONIO-/ 

CARRIAGECUNTRUL * -<C ARM I AliECUNTROL MNEMUNIC>-/ 

KILEKIKQ » -<FlLEKlN0 MNEMONIO-/ 

UMTS « -<UNITS MNEM0NIO-/UNITS/ 

StCUHlTYTYPE ■ -<SECUKITYT YPF MNEMUN I C>-/ 

StCUNlTYuSE « -<SECURITYUSE MNEM0N1O" 

IPLEASE NOTE THAI THE DASH HAS BEEN USED E OR THE S1NULE QUOTE.) 

<lNTtGER VALUED SYSTEM FILE AT FRlbUTE> I I ■ 

HECL/DATF/CYCLE/VERSIUN/SaVEFaCTOR/E ILE1YPE/BLUCKSIZE/ 
MAXRECSm/MlNRECSIZE/ANEASl/E/ARE AS/bUf EERS/SlZEuFE SET/ 
SIZE 2/ PAGESlZE/PAGt /LI NENUM/ COPIES/ UN ITNO/AHEACLASS/ 
LASTSTATtUN 

<REALVALUED SYSTEM EILE ATTRIBUTE >1 * ■ 
TIHELIMIT 

<BUULEAN VALUED SYSTEM EILE ATTR IbUTE> « I ■ 

uPTlCNAL/ELEXlBLE/OPEN/SlNGLFPACK/LYLlhOEKMUDE/COUEF ILf/ 

I INTERCHANGE/ I C/DUPL I CaT ED/RE ADCHECK 
<STnING VALUED SYSTEM MLE A 1 TK TbOTE> » I • 

Tl fLE/PACKNAMfc/FURMMESSAGt /FOHMESSAGE/INTNAMF / 

SECURITYGUARD/FAMILY 
<DENSITy MNFMONlt>:»s 

HIGH/ MEDIUM /LOW/ SUPER 
<PARlTY MN£MUNIC>«:» 

STANDARD /NONSTANDARD 
<KIND 0PTI0N>IH 

<DEVICE>/ * 

<bACKUP OEVlCEXbACKUP OPT I ONXbAtKUP UNIT>/ 

<bACKUP DEVICEXHACKUP UPTIUN>/ 

<BACKUP OPTIONXbACfsUP UNiT>/ 

<bACKuP (JPT1UN> 
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<UEV1CE>JJ= 

<UISPLAY MNEMUN1C>/ 
<HtMQrt HNEM0MC>/ 
<PAPEk HFADER MnEM0MC>/ 
<PAPEH PUNCH MNEM[JNlt>/ 
<CAHU HEAUEH MNFMUNIC>/ 

<u isk hack MNEMnNic>/ 
<cahg punch mnemonio/ 

<PHlNTER MNEMUNIC>/ 

<uisk mnfmdmo/ 

<Tape MnFUQNIO 
<bACKUP UEVICF>tt* <CAKU PUNCH MNEMONIO/ 

PRIMER MNEMUNIC> 
<bACKUP yMT>l!i <D1SK MNEMHN I C >/<T APE MNEM0NlC> 
<UlbPLAY MNFMQNlOtlB SPG/bPUS/Dl SPL A Y 
<HLMUTE HNLMUNlOlta KEMUTE/UC 

<PAPEH NEADFrt HNEMi)NIC>»»« P APER/P APERRE AUER/PTH/PAPER READFK 
<PAPEH PUNCH HNEMUNlC>» »= PAPEHPUNCH/PTP/PAPtK PUNCH 
<CAKU HEAUER MNEMUN1C>»»= HE ADER/HE AUEpS 
<UiSK PACK MNFMQNlOit" DISKPACK/UISPACKS/PACK/PaCKS 

<Cmhu punch mnemunic>ij* punch/punches/cp 

<PHINTtR KhEMUNIOlli PK I NTE H/PR I NTERS/LP 

<U15K MNEPONIOJts UlSK/bERlAL 

<lAPt MNtMQNiOll* TAPE/TAPF.b/l APE9/lAPEVb/PtUPE/PETAPES 

<BACKUP UP|IUN>tts bACKUP/bACK UP 

< S [ H 1 N (i > t I » <CHAHACrER STRING C n N S 1 A N 1 > 

<bUGLEANMNEMUNU>tl=THuE/MLi»F 

<LAdtLTYPE MNEMGnIOJ * = ST ANU AH0/0M I T TE U/UM 1 1 TtDEOF 

<tXTMUUE MNFMOMOJJ* S I NtiLE/DUllbLE /HE X/bCL/fcBCDI C/ AbC I I 

<PKQTLCT1UN MNEM(!N1C>JI= TL MPljH AH Y/ S A Vi D/ PRO I EC T E L) 

<Mlubt PNEHONIOMx CLUSEO/ I N/UllT/ 1 U 

<UTHEHUSE MNLMUN1C> t !» bECURED/tN/UUT/lU 

<bPEE0 PNEMOMOl l= K AST /MED 1 UMF AST /MEUI UM5LU w/ SLUM 

<UlHECTI()N NE«UMC>lli FCJKW ARU/RE VE KSE 

<Si^EMUUE MNEMUN1C> « := <EX1M(jDE MNEMGNIC> 

<CARRlA(iEC0N IRUL MNt MUN I C> I : = ST ANUARIJ/C 1 L ASA/CT/L360 
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<FlkEKlNO MNtMl)MC>lls 

ALGULCOUF / ALUOLSYMbOL / BACKUPUihK / bASICCUDE / 
dAblCSYMHUL / HINOERSYMbOL / BOUNOCODt / CUbULCODE / 

CUHQLSYMBUL / CODEFRE / COMP I LERCOOt HLf / COnTROLOECK / 

UATA / OCALGULCUUE / DC ALGOLS YMBUL / DIRECTORY / ESPuLCUDE / 

ESPULSYmROL / FlJHTRANCODE / F OH TR ANSYMBUL / GCAHDFILE / 

INfRlNSiCF ILE / JUViALCUDE / JOVIALSYMBOL / LlBKARYCODE / 

MCPCQUEFILE /PLlCOOE / PLISYMBOl / RECUNST HUC T I OnF I LE / 
StUUATA / SYSTEMUlMLtTURY / S YST E MD I KF ILE / VERS 1 OND IRE C 1 OR Y 

/ XaLGOLCQDE / XALGOLSYMBOL / XDlSKFILt / XF URTRANCtlDE / 
XFOHTRANSYMBUL 

<UNlTS MnEmOnIC>«»« <BOULFAN MNFMUNlO/WURDS/CHAHACTERS 
<SECUH1TY TYPE MNEMONiOMs PK 1 V A TL/CL ASSa/CL AbbB/CL AbSC 
<StClfKlTV USE HN£NONK>tH SECURED/ IN/UUT/ I 0/ RE AUONLY / 
NHlTEONLY/NtAUMHlTE 

IHt C0KP1LEM WILL bEl SOME DEFAULT ATTNIBUTE SPEC IF IC AT IONS FOR A 
FILE DECLARATION. THtbE MAY Bt OVERRIDDEN UY SPECIFYING THEM IN 
THE FILE OPTIONS LIbl. 



1. SAVEFACTUR lb SET TO ONE 

2. UN 1 r S IS bEr TO CHAHALTERb 

3. MYUSE lb SET TU OUT IF A FILE lb DECLARED OUTPUT OR PRINT. 
<♦• KYUSE IS SET TU In IF A FILE IS DECLARED 1NPUI 

b* PAXHFCSIZE WILL BE SET IF NO FILE UPTIUNS LIST IS 
SPECIFIED. IT WILL BF SET TO 132 IF THE FILE NAME IS 
SYSPRINI OR THE f ILE IS DECLARED PRINT* OTHERWISE IT WILL 
BE SFT TO fiO. 

6. AREAS WILL BE SET TO 20 AND AREASIZE TU 1000 IF KIND HAS 
BEEN SPECIF ItD 10 BE DISK. 

7. IF KINO HAS NOT bEEN SPECIFIED AN ATTEMPT WILL b£ MADE TO 
ASSIGN IT A VALUE. 

IF FILE NAME lb SYSPRlNl* KIND "ILL Bt SET TO REMOTE IF 
THE COMPILE IS A REMOTE ENTRY. OTHEHWISE IT WILL BF SET 
TO PRINTER. 
IF THE FILE NAME IS SYNTN, KlNU WILL BE SET 10 REMOTE IF 



CU225 PLI - PH HLf DECLARATIONS - \2 m l6"7i 



PAGE 192 



THE COMPILE 16 A REMUTF ENTkY. UTHERWISE II WILL BF SET 

TO RFAUEH. 

If THE f ILL is DLCLARFU PRINT IhLN KIND WILL BE SET TO 

PRINTER, 

If THE ULl I a DEClARFD OUTPUT BUT NUT PRINT THEN KIND 

WILL BF SET IU UlSK. 

If KIND IS SPECHIED IN 1 ME flLt OPTIONS LIST* THE 

CUMPILEH SYNTAXES IT TU StE THAI IT AGREES wITH OTHER 

SPtCIf IU I IONS. 

A. IK A KILE IS DECLARED PHiNT, KIND MUST BE SET 

TU PHINTEK, 
H. If A flLE lb DFCLARfD INPUT* MNt) MAY NOT BE 

st! tu a device appropriate unly fuh ootpot. 
c. h a mle is ueclakeu uuiput* mno may not be 
sei tu device appropriate unly f ur input. 

system file attribute intmude 

infmoue is unconditionally set tu ebcdic attempting to spfcify it 
in a file options list will ufnfrate an error of level zero and the 

SPtCIf ICATiON WILL tit lbNUKED. 
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prlcedures may nuw be cumpileo separately in pli, the control card 
dpi ion "multiple". when set. causes the las1 name of the program 
flle nape to be replaced by i he name of 1 he main entry point of the 
procedure. if stparate is nut set. the name of the urst procedure 
will be the phogkam mle namf and all subsequent prucedures will 
have fhl last name uf the prugram flle name replaceu by the name of 
the main entry puint of i he prucfdure. if new. newl or new? is 
sei, all procedures will be contained in a single new symbolic file, 
prucedures must be separated by a card with a question mark "?" in 

Itxr COLUMN ONE. 
EXAMPLE J 
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<I>CUMPR£ A/B/C WI1M PLI L1RKAKY> 
<I>DATA 

"SET MULTIPLE" 

ONE! HHOCEDUHfe) 

LMJ UNt) 

V 
SlWOl PROCEDUHEJ 

EM) STHO; 
<1>EM)« 

THE T*U COLE FILES APE CALLED A/b/UNE ANU A/d/"$THU"» 



"Sp, ^ A . drV- SO ^ 




NEW FEATURES AND DOCUMENTATION CHANGES 
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PHEUICTSORT 



UOUfl PHEOICTSORT - SORT 1IMTNG PREOIUOR * u i""i^'I ? 
-H- T Ii MlNti PREDICTION ROOTlNES 

A 5UH1 UTILITY PROGRAM WRITTEN IN FORTRAN HAS BEEN INCLUDED IN THE 
MARK 11.4 RELEASE UNDER THE SOURCE NAME UF "S YMBOL/PREUl CTSORT " AND 
bBJtCT NAME UF M S YS T E M/PRE U I C TSflHT" . THL OUTPUT OF THIS PROGRAM IS 
A PpEUICTlON OF THE RESUURCES RFHUlRlO (PROCESSOR AND 1 NPUT-OUTPUT > 
10 ACClMPLISH THE SPECIFIED SORT. INPUT TU THE PROGRAM IS A 
RELATIVELY ClmPREHENS 1 VE SET OF PARAMETERS ThAT SPECIFY THE SORT TO 
til DOM. 

ACCURACY OF PROGRAM 

blNCE THE H67UU SORT IS A SOPHISTICATED PROCESS* PREDICTION OF 
ANflCIRATEu RESULTS IS» BY NECFbSITY* COMPLEX* PREDICTION RESULTS 
bHUuLU NUT HE EXPECTED TO bf. 1U05t ACCURATE* BUT IT IS DESIRED AND 
EXPECTED TO BE MllHlN 5X ACCURACY FOR THE MAJORITY OF TEST CASES* 
A GENErtAL TENDENCY TOWARD OVERES T I MA 11 ON RATHER THAN 
UNUEREST1MATI0N HaS BEEN BUILT IN I U THE PRUGRAM* PROCESSOR TIME 
tSfItfATE6 APE bASED UPON A 5-10 CLOCR AND 1 . £ MICROSECOND MEMORY. 
A/U TIME ESTIMATE* APE BASED UPON I HE SPEED OF THE SPECIFIED 
UEVICES AND ASSllClATEU PROCESSOR ESTIMATE. ELAPSED TIME ESTIMATES 
ARE BASED UPON MAXIMUMS OF THt ASSUCIATED I/O AND PROCESSOR 
ESTIMATES. ALL PREOPTION* ARE BASED UPON THE SOR T RUNNING IN AN 
UPliMAL ENVIRONMENT WHERE THE ONLY CONTENTION FOR MtMURY OR ACCESS 
TO A I/O UEV1CE IS FOR AND BY THE SORT ITSELF* ELAPSED TIME 
ESTIMATES DO NOT ANTICIPATE OVERLAPPING UF I/O EXCEPI WHERE DISK IS 
bElNG UVERLAPPEU WITH TAPE FOR 1TD SORIS. PLfcASE NOTE THAT THERE 
IS NO ACCOUNTING OF ANY TYPE UF TAPE REEL SWITCHING OR ANY KlND OF 
ACTIVITY THAI MAY REQUIRE OPtRATOR INTERVENTION. 



input parameters 
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THE USE OF NAMELIST WAS CHflSEN E UR EASE UK INPUT AND THE USER 
SHUULU HEEEK TU THE tib/00 HJKTKAN LANGUAGE MANUAL f OK INFORMATION 
HEGUAHUiNG I HE USE UF NAMELIST. A WORU OE CAUTION IS IN ORDER TO 
tMPHASIZE THE NEED PUR CORRECT SPELLING OF PARAMETER NAMES AND THE 
USt UF PUNCTUATIUN UUMMAS AND EQUAL SIGNS). 1 HE NAME OF THE 
NAMELIST RECORD IS "1NE0" AND ALL ELEMENTS IN THE CIST ARE SIMPLE 
VARIABLES. 

MURE THAN ONE S£ I OE INPUT DATA CAN BE EH) (UNE AT A TIME) INTO THE 
PRUGHAM, WHEN INPUT SETS ARL STACKED IN IHlS FASHION* EACH 
SUCCEEDING SET WILL REPLACE UNLY THE VARiAbLtS SRECUIED WITHIN THE 
SPECIFIC SUCCESSUR St f . UNCE A PARAMETLR HAS BEEN ASSIGNED A 
VALUE* IT WILL RETAIN THAT VALUE UNflL A SUBSEQUENT ASSIUNMENT 
REPLACES IT. ALL VALUES ARF INITIALIZED TU ZtRO EXCEPT THE 
EOLLUklNGt 

SEU IS INITIALIZED TO 50.0 

EELAP* FlU, EPROC ARE INITIALIZED TO 1.0. 

THE NAMES AND USE ijE INPUT PARAMETERS ARtl 

CUMPAR (A REAL POSITIVE VALUE WHERE 1.0 EOUALS UNE MICROSECOND) 

THIS IS THE AVERAGE AMOUNT OE PRUCESS()R TIME (IN 

MICROSECONDS) REQUIHFU FUR ONE INVOCATION OE THE COMPARE 
PROCEDURE. THIS MUST ALSU INCLUDE PROCEDURE ENTRY AND 
EXIT TIME. 



RSIZE (AN 1NTE0EH VALUE WHERE ONE EWUALS UNE WORD AT LEAST ONE 
AND AT MOST 65535) THIS IS THE SIZE (IN WORDS) UE THE 
SORT RECORD. IN COBUL THIS IS THE SIZE UF THE SO WHILE 
IN ALGOL IT IS THE SAME AS THE RECORD LENGTH. NOTE THAT 
RECORD SIZE MUST BE IN WORDS AND NUT IN CHARACTERS. 

RECS (AN INTEGER VALUE WHERE ONE EUUAlS ONE RECORD AND WITH A 
VALUE OF AT LEAST ONE) THE EXACT NUMBER OE RECORDS TO BE 
SORTED. 

USIZE (A NON-NEGATIVE INTEGER VALUE WHERE ONE EOUALS ONE WORD) 
THIS IS THE AMOUNT OF DISK UN wURDS) THAT WILL BE 
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TAPES 



CSUE 



SPECIFIED FOR THE SORT. 

CA NON-NEGATIVE INTFGEH V^ALUE WHERE O^E EQUALS ONE 
WOKKTAPE) THIS 15 THE NUMBER UF TAPES THAT WILL BE 
SPECIF IEU FUR THE SORT. 

(A NUN-NEGATIVE INTEGER VALUE WHERE ONE EQUALS ONE WORD) 
THIS 15 THE AMOUNT OF MEMORY UN WUHU5) THAT WILL BE 
SPECIFIED FOR THE SORT. 

RESTAR (A NON-NEGATIvF lNTFGFR VALUE LESS THAN 33) THE CORRECT 
VALUES THIS PARAMFTFH CAN 1 AKE ON ARE THE SAME AS THE 
RFSTART PARAMETER U5FU FUR INVOCATION OF THE SORT. THIS 
PRUGRAM, HOWEVER* ODES NOl A1TEMPT PREDICTIONS THAT 
INVOLVE RESTARTING PREVIOUSLY INCOMPLETE SUR1S* 

SEQ (A NON-NEGATIVE REAL VALUE BETwEtN ZERU AND 100) THIS 
PARAMEfER IS USEU TU SPECIFY THE RELATIVE SEQUENCE 
iNhEKENT IN THE INPUT DAlA. THIS PROGRAM WILL ASSUME 
THAT THE SEQUENCE SPECIFItD WILL BE UNIFURM THROUGH ALL 
OF THE UATA. THE IMPORTANCE UF THIS PARAMETtR SHOULD NOT 
BE MINIMIZED BECAUSE OF THE DIRECT RELATIONSHIP UPON THE 
RESULTS UbTAlNED. USERS SHUULD BE AWARL THAT THE MARK 
2. J ANU SUCCESSUR SORTS (INVOLVING 1 HE USE UF SORT DISK) 
WILL ATTEMPT TO TAKE ADVANTAGt OF iNHERENl FILE SEQUENCE 
TO THE EXTENT OF SWITCHING BETWEEN ASCENDING AND 
UESCENUlNU COMPARISONS. THIS GENERALLY RESULTS IN AN 
EFFECTIVE SEQUENCE OF AT LEAST *Ofc AND CAN EASILY IMPROVE 
THE SEQUENCE TO APPROACH 100X» THIS PROGRAM ASSUMES THE 
SORT IN USE WILL BE AT LEAST AT THE MARK 2.3 LEVEL. 

ELAPIN (A NON-NEGATIVE REAL VALUE WHEHE 1.0 EQUALS ONE 

MICROSECOND) THE AVFRAGE AMOUNT UF ELAPSED TIME (IN 
MICRUSECUNDS) THAT OCCURS AS A RESULT OF AN ATTEMPT BY 
THt SORT TU "READ" ONE INPUT RECORD. THIS PARAMETER 
REPRESENTS TIME NOT INCURRED AS EITHER PROCESSOR OR I/O 
BUf AS TIME WAITING FOR AN EVENT TO UCCUR THAT IS 
EXIERNAL TO THE SORTING PRUGRAM PROPER. 
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(A NON-NEGATlVE HEAL VALUE WHERE 1.0 EQUALS ONE 
MICROSECOND) THIS PARAMETER IS SIMILAR TU LLAPlN EXCEPT 
ITS USE IS FOR OUTPUT RECORDS (RETURNED TO USER BY SORT). 

PHOCIN (A NON-NEGATIVE HEAL VALUE WHERE 1.0 EUUALS ONE 

MICROSECOND) THIS PARAMETER IS USED TU SPECIFY THE 
AVERAGE AMOUNT 0* PROCESSOR TIME (IN MlCROSE CONOS ) 
INCURRED TO READ ONE INPUT RECORD. IF AN INPUT PROCEDURE 
IS TO BE USED* IT IS THE AMUUNT OF PROCESSOR TIME 
HEUUIREO BY THAT PROCEDURE. IF A ULE IS TO BE USED BY 
AN INPUT PRUCEUURE OR PASSED TO THE SORT. THE PROCESSOR 
TIME USED BY THE SYSTEM TU READ THE RECORD MUST BE 
INCLUDED IN THE PARAMETER VALUE. In ANY CASE ALL 
NECESSARY PROCEDURE ENTRY AND EXIT TIMES MUST BE INCLUDED. 

PHOCC (A NON-NEGATIVE HEAL VALUE WHERE 1.0 EUUALS ONE 

MICROStCONO) THIS PARAMETER IS USED TU SPECIFY THE 
AVERAGE AMOUNT 01- PROCESSUR TIME (IN MICROSECONDS) 
INCURRED TU WHITE ONF OUTPUT HECORD FROM IHE SORT TO THE 
USERS OUTPUT FILE OR OUTPUT PROCEDURL. THE USE OF THIS 
VALUE IS SIMILAR TO PROClN EXCEPT THAT IT IS APPLIED TO 
UUTPUT RATHER THAN INPUT. 

UltllN (A NON-NEGATIVE HEAL VALUE WHERE 1.0 EUUALS ONE 

MICROSECOND) THIS PARAMETER IS USED TU SPECIFY THE 
AVERAGE AMUUNT OF 1/U TIME TO READ ONE USEH INPUT RECORO. 
THIS PARAMETER SHOULD BE THE SAME AS THE 1/0 TIME THAT 
WOULD BE LUGliED BY THE SYSTEM TO ACCOMPLISH THE SPECIFIC 
I/U. 

UlOOLT (A NON-NEGATlVE HEAL VALUE WHERE 1.0 EUUALS ONE 

MICROSECOND) THIS PARAMETER IS SIMILAR 10 UIOIN EXCEPT 
THAT ITS USE IS APPLIED TU THE USER OUTPUT FILE RATHER 
THAN INPUT. 4 

IA2 (NON-NEGATIVE REAL VALUES NO MURE THAN 100 WHERE IA2 

KJ THROUGH I1B6 Rf PRE SENT A UlbK TYPE --SEE B6700 HARDWARE 

1C<» HANDBOOK. SECTION ?•" AND THE SUM UF «LL UliK TYPES IS NO 

ILtii MOHE THAN 100.0) THIS PARAMETER IS USEL TO SPECIFY THE 
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TAPtO 
TAPE1 
TAPE* 
TAPE3 
TMPti* 
TAHL5 
TAPE6 
TAPE? 



PERCENT UK USWE TU bE USED dY THE PARTICULAR DISK TYPE* 
IN ACTUAL USE UblZF IS FIRST CONVERTED 10 THE NUMBER UF 
UISK KUWb AVAILAblE AND THE ROWS ARE THEN APPORTIONED* 
ACCORDING TU THE PFRCENTAGE VALUE, TO THE VARIOUS DISK 
TYPES. SELECTION BETWEEN DISK TYPES IS BASED UPON DISK 
SPEED PROCEEDING FROM HIGHEST SPEED (SMALLEST AVERAGE 
ACCESS) TU LOWEST SPEFU. 

CAN INTEGER VALUE AT LEAST ONE ANU AT MUST 11. EXCEPT 
THAT ZERO IS USEU TO SPECIFY AN UNUSEU TAPE) THIS 
PARAMETER IS USEU TO SPECIFY THE KInD UF TAPE ONlT THAT 
WILL HE USED E UK FACH SORT TAPEi UNE UNIT MUST BE 
ASSIGNED A VALUE F UR EACH TAPE SPECIFIED BY THE TAPES 
PARAMETER. THE MINIMUM NUMbER UE TAPtS THAT MAY BE 
SPECIFIED IS THREE AND THE MAXIMUM IS EIGHT. THE PROGRAM 
WILL EXPECT ASSIUNMFNTS BEGINNING WITH TAPEO AND 
CONTINUING SEUUENTIALLY THROUGH TAPE N WHERE N IS THE 
NUMBER OF TAPES SPFC1FIED bY THE PARAMETER TAPES(MlNUS 
ONE). THE 1APE UNIT TYPE* REPRESENTED BY THE INTEGER ONE 
THMOUGH 11 AKEl 



1 
?. 
J 

b 
b 
/ 
8 

SI 
10 

11 



7 
7 
7 
7 
7 

r 

<y 

PE 
PE 
PE 



TRACK 
TRACK 

Track 
Track 

TkACK 

track 

TRACK 
TRACK 



200 bPl 
556 BPI 
800 bPl 

zoo bPl 

556 BPl 
800 BPI 
800 bPl 
BOO DPI 
1600 bPl 
1600 BPI 
1600 bPl 



1BKC 
50KC 

7?KC 

24KC 

66KC 

V6KC 

7 2KB 

V6KB 

1MKB 

192KB 

240KB 



90IPS 

90IPS 

90IPS 

120IPS 

120IPS 

120IPS 

90IPS 

120IPS 

90IPS 

120IPS 

150IPS 



FUULAP tA NUN-NEUATIVE REAL VALUE AT MUST 1.0) THIS PARAMETER IS 
USED TO EXPRESS THE PERCENTAGE OF DISK I/O THAT wlLL BE 
IN I^HOCFSS SIMULTANFUUSLY. IN ACTUAL PRACTICE THE 
ELAPSED TIME OE AN 1/U BOUND SORT MAY BE LESS THAN THE 
TOTAL I/O TIMF bfCAUSt OF I HE ABILITY TO ACCOMPLISH 
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SIMULTANEOUS 1/Q REQUESTS. SiNCt I HIS PKQGNAM DUES NUT 
CONSIDER i/O SIMULT ANFlTYn THIS PARAMETER MS PROVIDED AS 
A MLANS OF EXPRESSING THAT CUNOllION. PLEASE NOTE THAT 
THIS PARAMETER APPLIFS ONLY TU DISK I/O. THE CONTENT OF 
THIS PARAMETER WILL BE MULTIPLIED BY THE DISK I/O TIME 
ANU THE RESULT WILL BE USED 10 HLDUCE THE ELAPSED TIME. 
A VALUE OK 1.0 REPRESENTS 100* AND A VALUE UF 0.5 
REPRESENTS 50*. 

FTOLAP (A NON-NFGATIVE REAL VALUE AT MUST 1.0) THIS PARAMETER IS 
USED TO EXPRESS THE PERCENTAGE OF TAPE 1/0 THAT WILL BE 
IN PROCESS SlMUl.t ANEOUSLY. USE UE THIS PARAMETER IS 
SIM1LAK TCJ EU11LAP FXCEPT THAT IT APPLIES TO TAPE I/O 
RATHER THAN UiSK. 



IS A GENUINE FUDGE 
AFTER ELAPSED TIMES 
MULTIPLIED BY TH15 



FELAP (A NUN-NtUATlVf REAt VALUE) THIS 
FACTOR THAI IS INITIALLY SET TO 1.0. 
HAVE BEEN COMPUTED THEY WILL BE 
PARAMETER. A VALUE LARGER THAN l.U WILL INCREASE THE 
ELAPSED TIMES ANU A VALUE LESS THAN 1.0 wlLL DECREASE 
ELAPSED TIMES. IT IS PROVIDED AS A OPTIONAL MEANS OF 
REFINING THE OUTPUT UF THIS PROGRAM. 

F10 (A NON-NEGATIVE REAL VALOE) THE USF OF THIS PARAMETER IS 
SIMILAR TO FELAP EXCFHT THAT IT WILL BE USED TO MULTIPLY 
I/O TIME. IT IS INITIALLY SET TO 1.0. 

FPROC CA NON-NEGATIVE Pt Al. VALUE) THE USE OF THIS PARAMETER IS 
SIMILAR TO FELAP EXCfPI THAT IT WILL bE USED TO MULTIPLY 
PROCESSOR llME. IT IS INITIALLY SET TU 1.0. 

UBS1ZE (AN INTEGER VALUt AT LEAST ZERO ANU AT MUST 6553S) THIS 
PARAMETER IS USEU TU UVERRlUE THE CUMPulEU BUFFER SIZE 
(DISK BUFFEkS ONLY) IN A FASHION SIMILAR TO LABEL 
EQUATION PERM1T1EU BY THE SORT. IF THIS PARAMETER IS 
NON-ZERO. IT WILL bF USED FOR COMPUTING ESTIMATES BY THIS 
PROGRAM. 



DEBUG (A NON-NEGATIVE REAL VALUE) THIS PARAMETER IS A DFBUGGING 



1/0146 PHF.UIUSURT - SUhT TIMING PHtUlCTON - 01-15 



„ 7 gAGE 20U 



rQUL l" OR THIS PROGRAM. A VALUE BETWEEN 0.0 AND 1.0 KILL 
CAUSE CFHTAIN UfcbUGGlNb INFORMATION 10 Bt PRINTFU AN-0 A 
VALUE GHtATEK THAN 1,0 WILL CAUSt PRINTING UF ADDITIONAL 
UFBUGliINU INFURMAUUN. 

MUUIFICATION Qf PAKAMLTLKS AND OUTPUT 

PAhAMtTEK VALUES MAY BE MODIFIED BY THE PROGRAM IN SOMt CASES* 
hUWEVER. WHEN THIS OCCURS NOTIFICATION UF 1HE CHANGE wILL BE 
PRINTED. FATAL EHKURS WILL ALSn BE PRINTED AND THE ATTEMPT WILL BE 
MAUE TQ FIND ALL SAID EHRURS IN AnY SINGLE i»CAN QF AN INPUT SET* 
IHt UUTPUT FURMAT IS SIMILAR TO THE FURMAT USED BY THE PROGRAM 
"SYSTEM/SURTSTAT". A NEW AREA Of INFONMaTION HAS bEEN ADDED THAT 
CONTAINS INFORMATION ABOUT THE AMOUNT OF WURKFILE STORAGE SPACE 
HEuuIREU FUR THE SORT. THE ESTIMATE PRUDUCEu FUR DISK WORK SPACE 
WILL MUST LIKELY BE SUFFICIENT* HOWEVER THERE IS A PUSSIBILITY THAT 
THE ESTIMATE REPRESENTS AN OPTIMAL CUND1TIUN THAT WOULD NOT OCCUR 
IN ACTUAL PKACTICE WITH DATA THAT IS NOT UNIFORM IN SEQUENCE OR IN 
fACT IN A DIFFERENT SEQUENCE. THE AMOUNT OF TAPE SPACE REUUIRED 
ASSuMtS NO LOSS OF TAPE DOE TO IMPERFECT RECORDING SURFACES AND 
tSIIMATES UNLY THE TOTAL AMOUNT OF SPACE AND NOT THE NUMBER OF REEL 
SWITCHES THAT MIGHT UCCUR. IT IS LIKELY THAT THIS GENERAL AREA 
WILL BE EXPANOED IN THE FufUKE. 

SAMPLE DATA 

EXAMPLES OF CARU DECKS TU COMPILE OR RUN THIS PROGRAM ARE AS 
FOLLOWS (rtHERE <B> REPRESENTS A BLANK CULUMN)! 

A. TO COMPILE 

<i>COMPILE SYSTEM/PKED1CTS0RT WITH FORTRAN TO LIBRARY 

<1>FQRTRAN FILE TAPE (TITLE ■ S YMBUL/PREO I CTSORT ) 
<I>DATA 
<ENU> 

H. TO RUN 

<1>RUN SYSTEM/PREUICTSURT 
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<I>0ATA FILE5 
<ti>&INKG<«> 

<0NE OH MORE PARAMETER CARDS> 

<B>4ENU 

<I>END 



parameter values may alsu bl placed on the tiNfo card 
or The rend cahu. 
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U015V HJE - HUN JOBS WITH PAHAMETERS - 12-04-72 

mmmmm m ** m m ««« wbww m » » <w m m m m m m » * m m m » <* m » w •» ■ » 

THli PATCH ALLOWS A "RUN" OR "tXlCUTE" CaRD RUN THROUGH RJE TO HAVE 
A UUUTEO STRING AS A SINGLE PARAMETER. EXAMPLE I 

<I> RUN SfSTEM/UCSTATUS ("ALL")) ENU. 



00173 



RJE - DP MESSAGE TO RJE - 12-04-72 



(his patch allows the dp message at either the remote console or 
tht central site c v i a the sm construct) to be optionally followed 
bt dump options uesireu. the options allowed are "arrays", "base", 
"code", "files", or <integeh>. commas may be used to separate to 

UPTIUNS IE OESlHEU. 



volar 



RJE • RHIGRITY OF RJE HACKUPS - 11-20-72 



THIS PATCH CAUSES THE AUTQPRlNl ROUTINE Oh RJE TO RUK AT A PRIORITY 
UVE HIUHER THAN HJE ITSELF. IN NU CASE WILL 1 HE PRIORITY OF 
bACKUPS tii HIGHEH THAN 99. 



U0186 



RJE - FORMMESSAGF THRUUbH RJE * 11-20-72 



THIS PATCH IMPLEMENTS THE FflKMMESSAGt FUNCTION FOR PRINTFILES 
PRINTED AT AN HJL TEHMINAL. THE NOTIFICATION OF FORMS REQUIRED 
WILL BE <MIX NUM> <f URMMESSAbE STR1NG>. THE PRINTING JOB WILL WAIT 
UNTIL THE REMOTE OPERATOR RtSPONDS <MIX NUM> FM <0PTI0NAL STRING>. 
ONLY UNE FILE WILL ttE PKINTfcD AND A "PB» MESSAGE WILL CAOSE 
HRINTING TO CONTINUE* THIS ALLOWS RLMOVAL OF ANT SPECIAL FORMS 
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WHICH HAVt BEEN USEO. 



U0189 RJE - VALUE AND BUNAME - ll-20-?2 

m m m m m m m m « mmmmm «» * « « « m m m m m *«»»-*»«»•*•» 

THIS PATCH IMPLEMENTS "VALUE" ANU "BONAME" CUNTROL CARLS IN RJE. A 
RUN TIME "VALUE" OR "BONAME" CANNUT Bt StT AT COMPILE TIME. RJE 
ALWAYS SETS BQBASE. SO IE USED* bONAME IS EFFECTIVE. 



-2--- « je - ss between rje stations ; 4120-72 

this patch allows rje users to send messages to other rje stations 
remote supervisor consoles, the syntax is <sta numbeh> ss <text>. 
i'mt text will appear on the station given by <sta numbtr> as* "#ss 
from <0riginating sta number>» <text>". 



H2*2i *H 2 SM MESSAGE IMPLEMENTATION - U-20-72 

RJE WILL NOW ACCEPT SM MESSAGFS fROM THE CENTRAL SITE CONSOLE. THE 
BASIC FORM OF AN SM MESSAGE IS <MCS MIX NUMBtR>SM t<TEXT> . 

HJL REQUIRES THAT THE <TEXT> BE IN ONE 0* TWO BASIC fGRMS. <KEY 
WOHOXOPTIONAL TEXT> OR <LSN><KFY WORDXUHT IUNAL TEXT>. <KFY WORO> 
a ARE TWO LETTER MNEMONICS. THE FOLLOWING DISCUSSION REFERS ONLY 
10 SM MESSAGES WHICH MUST BF FNTERED Al THE CfcNTHAL SITE CONSOLE. 

<KEY WORD>S REQUIRING LSN. 

PH IF AN AUTOMATIC CALLBACK WAS ATTEMPTED BUT ONSUCESS^L. THE 
PH MESSAGE WILL SIGNAL RJE TO TRY DIALING AGAIN. NOTE THAT 
AN ATTEMPT TO DIAL MUST HAVE ALREADY OCCURRED. THIS 
RESTRICTION AVOIDS ERRONEOUSLY OR CAPRICIUUSLY CONNECTING 
SWITCHED LINES. 

SU <OPTION> - SO SETS THE <UPTlON> SPECIFIED. <UPTION> CAN BE 
EITHEH LOGON OR USER. IF USER IS SET* ALL DECKS ORlfilNATlNG 
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FROM THAT STATION MUST RE PRECEDtD BY A USER CARD. IF LOGON 
IS SET. A LOGON SEQUENCE AS DESCRIBED IN THE RJE MANUAL IS 
REGUIHED. IF LOGON IS SET AND USER IS RESET ALL DECKS 
ORIGINATING FROM THaT STATIUN WHICH DO NOT HAVE A USER CARD 
HILL BE RUN UNUtR THE USFRCUOE AS GIVEN BY THL LOGON SEQUENCE* 
IF LUGUN IS RESET* NO LOGON SEQUENCE IS REQUIRED. AND NO 
DEFAULT USERCOOt WILL BE USED. IF A STATlUN IS ACTIVE AND 
NOT LOGON WHEN THE CFNTRAL SITE OPERATOR SETS LOGON* THE 
STATION WILL BE LOGGED OFF AND REQUIRED TO LOGON. 

THE SETTINGS OF THESE TWO OPTIONS WILL BE REMEMBERED ACROSS 
DIFFERENT RUNS UF RJE. HUWEVEH, U RJELINKED ULE IS 
REMUVEO. SETTINGS WILL RETURN TU THE DEFAULT OF LOGON * SET 
AND USER * RESET. 

NOTE THAT WHEN RUNNING UNDER A USERCUDE, LIBRARY MAINTENANCE 
CANNOT BE PERFORMED ON FILES NOT UNDER THAT USERCODE 
DIHECIORY UNLESS IT IS A PR1VILEDGED USER. TO FIND FILES 
UNDER A USLRCUDE THROUGH RJE, USE PD USERCUDE/<USE"R>/<F RE 
NAMf>* WHERE <FILE NAME> CAN BE AN EQUALS SIGN* PD < F ILL 
NAME> WILL SEARCH THE SYSTEM DIRECTORY. 

HO <OPTIUN> - THE RO MESSAGF RESETS THE ABOVE OPTIONS. 

SV THE SV MESSAGE SAVES THE SPECIFIED STATION. THE STATION IS 
MADE NOT READY, AND FRROR RECOVERY IS DISCONTINUED* SEE 
SYSTEM NOTE PQ840. 

RY THE RY MESSAGE MAKES THE STATION* AND LINE ASSOCIATED WITH 
THAT STATION, READY. THIS WOULD APPROPRIATELY BE PERFORMED 
ON A PREVIOUSLY SAVED STATIUN. SEE PRECEDING SV MESSAGE 
UISCUSSION. 

RE <OPTIONAL TUXMCS NAME> - THE Rt MESSAGE ALLOWS THE CENTRAL 
SITE OPERATOR TU RELEASE AN RJE STATIUN AS GIVEN BY THE <LSN> 
TO ANOTMFR MCS. AN EXAMPLE WOULD BE« 

31 RE TO SYSTEM/CANDE 

NOTE THAT ONLY THE STATION SPECIFIED IS RELEASED. IF, FOR 
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example* lsn 31 were a remott supervisory console the 
previous statement would release unly (he remote supervisory 
consolei the printer* caro reader and dc1000 would function 
normally. if the lsn released is a printer or remote 
supervisory console* no further output to that lsn will be 
attempted. 

<kly huru> alluwlng optional lsn. 

wh the wh message without lsn pkuviues the lsn, state (i.e. 
active. inactive. saved) and station name of fcach station 
known to rje. if an lsn is provided* the station name, 
lsercode (if applicable* logon requirements, user card 
requirements or default usercude use* switched status, state 
and phonfc number (if applicable) are given fur the specified 
station. the information is provided via sequential displays 
cn an asyncronuously running task. 



<KtY WUHD>S NUT ALLOWING LSN. 

L)P <DUMP UPT10NS> - PROVIDES A RJE LINKED FILE PRINTDOT AND A 
PHUGRAM DUMP. IT IS UNLY APPLICAbLE WHEN RJE IS COMPILED 
WITH DEBUG SET. <UUMR OPUUNS> ARE bASL, ARRAYS, FILES, CODE 
OR AN <INTEGER>. UPTlUNb MAY Hk SEPARAlED bY COMMAS OR 
tiLANKS. IF NO OMIUNS ARE SHEClFItD THE UPTIUN6 USED WILL HE 
AS APPEARED ON THE OPTION CARD WHEN RJE WAS COMPILED. FOR A 
DISCUSSION OF THE FlJNCTlUN l)F THL <UUMP IJPT10NS> SEE 
DOCUMENTATION UN PROGRAMDUMP INTRINSIC. 

hi THIS MESSAGE CAUSES THE CURRENl DEbUG LISTING TU BE PRINTED. 
CONSECUTIVE HI MESSAGES WILL PR1NI ONEY THE DEBUG LISllNG NOT 
PHEVIUUSLY PHINIED. 

QT fHiS MESSAGE wlLL CAUSE RJE TU ^0 TO EUJ IN AN ORDERLY 
FaShIUN. IN PARTICULAR. STATIONS WILL HE LOC-GED OFF SO THAT 
CORRECT ACCOUNTING CAN BE PROVIDED. THIS TECHNIQUE SHOOLD HE 
USED IN PREFERENCE TO DS-ING RJE. 

SS <STRING> - I HIS IS A BROADCAST OF THE <STRINC-> TO ALL ACTIVE 
RJE STATIONS. THE MESSAGE WILL bt PRINTED ON THF RSC AS* #SS 
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ALL»<STRING>. 



U0202 



RJE - DP OPTIONS 



11-20-72 



THIS PATCH IMPLEMENTS THE UPTIONS BASE* ARRAYS, MLES* CODE AND 
<lNTEGEh> TO THE DP REMUTE SUPERVISORY CUNSOLE (HSC) INPUT MESSAGE* 
THt OPTIONS FOLLOW THE MNEMONIC DP AND MAY BE SEPARATED BY EITHER 
BLANKS (JH COMMAS. THE DP MESSAGE IS ONLY ALLOWfcU WHEN RJE IS 
COMPILED wUH OEHUG SET. IF NU UPTIONS ARE SPECIMEO THE OPTIONS 
AS APPEARED ON 1HE OPTION CARU WHEN RJE WAS CUMP1LEU WILL BE USED* 
NOTE THAT THIS JUNCTION PARALLFLS THE SM «UH" MESSAGE DESCRIBED IN 
U0201* 

► OH A UlSCUSSlON Of THE FUnCTIUnS UK THE VARIUUS OPTIUNS SEE 
UU^UMENTATION ON PRUGRAMDUMP INTRINSIC. 



00*12 



RJE 



MULTISTATION RJE TERMINALS - 01-15-73 



THiS PATCH CHANGES RJE TO TREAT EACm PEhlPHERAL AND ITS ASSUCIATED 
UClOOO AS UIST1NCT STATIONS GROUPED BY LINE. THE US REMOTE 
SUPERVISORY CONSOLE (RSC) MESSAGE WILL NOW SHUW THE CORRECT LSN FOR 
THt PERIPHERALS FUN THE ORIGINATING UCiOUO. THE <RJE MIX#> SMI 
<Lon>WH WILL ALSO SHUW TMESF LSNS. ALL PRINTER bACKUPS wlLL BE 
UHUUPEO BY THE UClOOO L.SN. 

IN GENERAL. WHEN THE REMOTE TERMINAL IS BEING THOUGHT OF AS ONE 
UNIT THE LSN OF THE DCIOOO IS THE PROPER LSN TO USE. (E.G.* WHEN 
DIRECTING BACKUP fILES fU RJE TFRMINALS.) 

IN MOST CASES THE USER NEEU NOT BE CONCERNED ThAT EACH PERIPHERAL 
MA* A SEPARATE LSN. 



UOkil J 



RJE - STOP BY RSVP AND ACCEPT - Ol"lb-73 



lHit, PATCH CAOSES RJE TO PRINT UN THE REMOTE SUPEHVISORY CONSOLE 
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IKSC) ANY ACTIVE RSVP McSSAGF. THIS INCLUDtS NO FILE* DUP FILE* 
ACtbPT* ETC. 



UOZ\H HJt - AX RSC INPUT MESSAGE - 01-22-73 

THib patch allocs the hje user to hespund iu jubs stupped dtCALSE 

uF AN ACCEPT STATEMENT. THE FORMAT UF Tht HtPLY 1S» <M I X#> AX<TE XT > . 
THE <TExT> WILL bE PASSED TO TMF JOB DESCRIdtU BY <MlX*>. 



U0*lb HJE - PPIN1 FILE SEARCHING - 01-29-73 

IhlS PATCH CHANGES HJt TU UTILIZE THE UNStHfEVENT SO THAT HJE IS 

MOHt Event ohiven. in p*R'ncuLAH, the hjl algorithm for print 

FILES IS OIKFEHENT. HJE wIH LOOft F OH PRINT FlLtS F(]H A STATION 

WHLN A .Ob COMPLtTES UK A rb KtrtUlt bUPtHVlSURY CUNSULt (RCS) INPUT 

MESSAGE FROM ThAT STATION IS HECUGNlZtO. WHEN MHPRUXMATELY 30 

bECHNUS HAVE ELAPSEU HJt SEARCHES FOR PRINT FILES F 0* ALL STAUUNS. 

I h i S ELAPSED TIMt IS iNChEASk.O AS HJt BECOMlb bUSlEH. 



U0iJl6 



HJE - HbC UUTPUT TU INACTIVt STATION - 0W9-7J 



IHlb PATCH CAUSES MlSSAGtS SENT TO THE HEMUTt bUPE^VlSURY lUNSGLt 
(RSC) 1C tiE THROWN AfcAY KHtN ft SwITCHEU STATION IS INACTIVE. 



U0*22 HJE 



Hk RSC MEbSAGt - Ol-lb-7J 



THIS PAICH IMPLEMENTS TME HF HEMOTt burEHVlSURY CONSOLE INPUT 
MLSSAUE. THE FORMAT 1S» 

<LSN>KE <0PT10NAL TOXMCS NAME> 

1HL <LSN> MUST BE AN LSN ASSIGNED TO THE ORIGINATING TERMINAL. 

EXAMPLtl 
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31 Hi fO SYSTEM/CANUt. 
KJt tilLL AlSU NUW RECOGNIZE A STATION KEIEASEO TO IT BY ANOTHER MC5. 



UQ22J 



KJ£ - LUGANALrZER ThRUUGH KJE - 02"0!W3 



iHib PATCH CHANGES RJt Tu INTERMCE WITH SYSUM/LQGANAL YZER . 
ALTHOUGH REMUTt SUPLRVISURY (.UNSOLb INPUl IS ALLOWED* A DECK FORMAT 
IS REUUiREO. t.G. VLUU MIX 172l;END. HiR THE VARIOUS MESSAGES 
ALLUrtEO SEE fHL DOCUMENT AT UJN UN SYSTEM/LUGANALYZER • 
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SCR 



U0281 SCR - EU MAINTENANCE. - 03-23-73 



THE KEflUlHFMENT FOR THE Hi FU FACILITY HAS BEEN OBVIATED BY THE 
UI5K RESERVE AND RETURN FACILITIES IN CONJUNCTION WITH IMPROVEMENTS 

IN SCR* 

THE PURPOSE OF RY FU WAS TO PERMIT ROTATING OUT OF SYSTEM A DISK EU 
ANU ITS STORAGE MODULES TO PERFORM MAINTENANCE. TU ACCOMPLISH THIS 
USING THE RY EU FACILITY REQUIRED THE FOLLOWING STEPSt 

1« HALT SYSTEM. 

2. CABLE IN A SUBSTITUTE tU PLUS STURAGE MODS AS MIRROR 
IMAGE OF SUBSYSTEM BEING ROTATED UUT. 

it WHILE THE SYSTEM IS DOWN. RUN SOMt OFF-LINE ROUTINE WHICH 
WOULD BLlNOLY COPY THE SUBSYSTEM bElNG NUTATED UUT TO THE 
SUdbTlTUTESUBSYSTEM. 

4t swap unit numbers uf the substitute and original eus. 

5. take original subsystem uff-line» put substitute 
subsystem on-line, anu halt/load the system. 

6. at this point the system is up again anu the original 
subsystem may be tested and repaiked off-line. 

t« when the off-line subsystem is repaired* it may he tested 

BY TURNING THE SUBSYSTEM ON-LlNt ANU KEYING IN HY EU ON 

THAT UNIT NUMBER. THE RY wUULD ALLOCATE A SERIFS OF 

SPECTAL BADU1SK FiLfeS WHICH MAPPED ALL OF THE DISK ON 
THAT £U. 

8* CN-LINE MAINTENANCE COULD 1HEN BE HON ON ThESf BADDlSK 
FILES TO TEST AND VERIFY THE REPAIRED SUBSYSTtM. 



00281 
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9. TO RETURN THIS DISK TO THE SYSlEM REQUIRED THAT ALL OF 
THE BADDISK MLES BE MOVED ANO THE SYSTEM BE HALT/LOADED. 

TO ACCOMPLISH THIS USING CURRENT SUFTWARt» 



1. RESERVE EU TU BE PM-EU AS BADDISK* 

2. PERFORM MAINTENANCE. TESTING* AND REPAIRS IN ON-LINE OR 
OM-LINE MODE AS REQUIRED. 

3. WHEN THE DISK SUBSYSTEM HAS BEEN SAT I SF ACTUR IL Y PM-ED AND 
VERIFIED. THE SUBSYSTEM CAN BE RETURNED TO ThE SYSTEM BY 
RESERVE <0K>» CUPY ERRORS AND THEN PERFURMiNG A RETURN ON 
THAT EU. 

IF IT IS NECESSARY TO ADD A DISK SUBSYSTEM TO THE SYSTEM, THIS CAN 
BE ACCOMPLISHED BY MAKING THE EU READY (AFTER A H/L)# RESERVEING IT 
AS IAD AND THEN RETURNING IT. 

NOTE! THE USE OK RES AND RET ELIMINATES THE NEED FOR TAKING THE 
SYSTEM DOWN OR UUlNG ANY HALT/LOADS. 
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MISCELLANEOUS 



U0137 



ARITHMETIC TEST AE4 



09-22-72 



introduction! 

thl amount of" code executed by the ae3 program in determining the 
correct answer and checking thf machine result with the arithmetic 
interpreter result causes thf execut1un frequency of the machine 
oouble-preciilun operator to re too low for ae3 to be useful as a 
diagnostic aid in trouble ^hooting intermittent hardware problems. 

IHl AE4 PRUGRAM IS lNTENUEU TO BE THE DIAGNOSTIC HALF OF A DETECT 
AND DIAGNOSE PAIR OF PHObRAMS IN WHICH AE3 MAY BE USED AS THE 
DETECT HALF. THIS PROGRAM ACCEPTS INPUT F RUM THf CONSOLE 
SPECIFYING THE A. X, B» Y REGISTER CUNTENTS, THE OPERATOR TO BE 
APPLIED TO THESE OPERANDS, AND THE CORRECT RESULT* IT THEN APPLIES 
THE SPECIFIED OPERATOR TO THESE OPERANDS AND PERFORMS A BIT 
COMPARISON OF THE RESULT WITH THE (PRESUMED) CORHECT ANSWER. A 
RUNNING COUNT OF THE NUMBER OF EXECUTIUNS Of THE OPERATOR AND 
NUMBER OF MACHINE ANSWERS NOT EQUAL TO THE SPECIFIED CORRECT ANSWER 
MAY BE ACCUMULATED IN ORDER TO DETERMINE THE FREQUENCY OF FAILURE. 

INPUT PARAMETERS! 



THE REGISTER CONTENTS AnD OPERATOR MNEMONIC ARE SPECIFIED BY MEANS 
UF "AX" REPLIES TO CONSOLE QUERIES. THE PROGRAM WILL DISPLAY A 
GUESTIUN QF THE FORM "WHAT-S A * ?" AND WAIT FOR THE RESPONSE. 
THIS RESPONSE IS EXPECTED TO BE UF THE FORM <MIX NUMBER> AX 
<IUENUFIER> * <VALUEXETX>. THE <IUENIIF1EH> USED IN SUCCESSIVE 
QUERIES IS t A. X. B, Y. OPERATOR MNEMONIC, FIR5TWURD OF ANS, AND 
SECQNOWQRD UF ANS/ THE <VALUF> FOR QPERATUR MNEMONIC MAY BE ADD. 
SUdT» MULT, OIVD* IDIV OR RDIV, AND THE <VALUE> FOR ALL OTHER 
QUERIES IS EXPECTED TO BE EITHERl 
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1. A STRING QF ONE TO 16 ZEHllES) 

2. A STRING Oh EXACTLY 12 HEX DIGITS; 

3. A STRING OF EXACTLY 16 OCTAL DIGITS, OH 

4. AN ASTERISK* 

IHE ASTERISK MEANS THAT THE VALUfc Of THIS PARAMETER IS NOT TO BE 
CHANGED AND IS USED WITH THE Hi INTERRUPT DISCUSSED bELOW* 

A COMPLETE DIALOG SPECIFYING THAT 1.0 X 1.0 * 1.0 IS TO BE TESTED 
WtlULU LOOK LIKE TMISt 

QUERY! <MlX-#> ACCEPTl WHAT-S A « ? 

RESPONSE! <MlX-#> AX A * 1141000000000000 <ETX> 

QUERY! <MIX-#> ACCEPTl WHAT-S X » ? 

RESP0NSE1 <MIX-#> AX X * <ETX> 

QUERY! <MlX-#> ACCEPT! WHAT-S B * ? 

RESPONSE! <MIX"#> AX B « 1141000000000000 <ETX> 

UUERY! <MlX-#> ACCEPT! WHAT-S UPENATOH MNEMONIC? 

RESPONSE! <MlX-#> AX UP « MULT <ETx> 

QUERY! <MlX-#> ACCEPT! WHAT-S FIRSJWUHD OF ANS? 

RESPONSE! <MlX-#> AX F • 1141000000000000 <ETX> 

QUERY! <MIx-#> ACCEPT! WHAT-S SECUNDWORD OF ANS? 

RESPONSE! <MlX-#> AX S « <ETX> 

ALL Of' THE NON-ZERO NUMBERS In THE EXAMPLE ARE GIVEN IN OCTAL BUT 
COULD ALSO HAVE BEEN ENTEREO IN HEX AS 261000000000* 

PROGRAM OPERATION! 

AFTER THE INPUT DIALOG HAS FINISHED* THE PROGRAM REPEATEDLY APPLIES 
THL DESIGNATED OPtRATOR TO THE A/X-b/Y REGISTER CONTENTS AND 
PEKFORMS A BIT COMPARISON OF THE MACHINE ANSWER WITH THE FIRSTWORD 
ANU SECQNOwOHO CUNSULE INPUTS* WHICH ARE SUPPOSED TO BE THE CORRECT 
ANSWER. IF THESE TWO WORDS ARE NOT EXACTLY EQUAL* AN ERROR COUNTER 
IS INCREMENTED. THIS ERROR COUNTER CAN bE INTERROGATED BY MEANS OF 
<MIx-#>0T3<ETx>J THE FREQUENCY OF FAILURE MAY BE DETERMINED BY 
SAMPLING THE COUNT UF THE TOTAL NUMBER OF EXECUTIONS OF THE DOUBLE- 
PRECISION UPERATUR BY MEANS UF <MlX-#>0 T4<E TX>» 
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If THERE IS ANY UNCERTAINTY CONCERNING WHETHER THE PROGRAM QUERIES 
rtEKE ANSWERED CORRECTLY* A LISTING FOR THE CUHREN1 SET GF 
PARAMETERS CAN BE ObTAINEO BY PERFORMING! 

It A PD BO-<ETX>* ANU 

2. A ?PB U <NUMBER>> END <ETx> 

INHERE THE <NUMtiER> IS THE MIX NUMBER OK THE PROGRAM (INCLUDING 
LEADING ZEROES)* AS INDICATED BY THE PD REQUEST* 

[HE CURRENT TEST MAY BE ABORTED ANU A NEW SEl OF PARAMETERS 
SPECIFIED BY ENTERING <MIX-#>HI«ETX> . THE PROGRAM WILL ENTER THE 
CONSOLE QUERY MODE* ASKING "WHAT-S * ?" AS IF IT HAS JUST BEEN 
INITIATED. THE DIFFERENCE IS THAT THE REGISTER CONTENTS WILL NOT 
BE CHANGED FROM THOSE THAT WERE BEING USED IN THE INTEHRUPTEU TEST* 
SU CHANGES AND CORRECTIONS MAY BE ENTERED. WHEN ALL SUCH UESIRED 
CHANGES HAVE BEEN MADE* A REPLY Of <MiX-#>AX END<ETX> TO THE 
CURRENT ACCEPT INPUT REQUEST WILL TERMINATE CONSOLE REQUESTS AND 
BEGIN EXECUTION OF THE DOUBLE OPERATOR WITH THE NEW PARAMETERS. 

PROGRAM OPTIONSl 



THE EXECUTION FREQUENCY OF THE DOUBLE-PRECISION OPERATOR MAY BE 
INCREASED BY RECOMPILING THE S YMBOL/1 EST / AE*» SYMBULIC FILE USING 
THE FOLLOWING DECKS* 

<I> COMPILE TEST/AE4 UCALOOL LIBRARY 

<i> ALGOL FILE TAPfc (TITLE * S YMBUL/TEST/ AE<» * KINu • DISK). 

<I> DATA 

S MERGE CHECK IGNOREERRORS 

£ SET LIST 2 THIS CARD IS OPTIONAL 

<i> END, 

THE EFFtCi OF THE IGNOREERRORS DULLAR OPTION IS IU ELIMINATE THE 
COUNTING OF ERRORS AND OPERATOR EXECUTIONS. kiTH THIS DOLLAR 
OPTION SET. THE CONSOLE INPUT ROUTINES wILL ALSU NOt REQUEST INPUT 
UF THE FIRSTwORD ANU SECONUWURD OF THE CURRECT ANSWER. 

PRUGRAM LIMITATIONS* 
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!HL MACHINE RESULT FUR THE OPERATION AND THE CONSOLE INPUT FOR THE 
PRESUMED CURKECT ANSWER ARE COMPARED BY MEAN* UF THE SAME OPERATOR. 
THUS, VALUES WHICH MOULD HE EQUAL UNUtR AHIIHMlTIC CUMPARISON (I.E.. 
UCTAL 1141000000000000 a UCl 11301000000000 » UCT 1120010000000000 
» ... « 0000000000000001) ARF NOT EUUAL UNDER THE SAME OPERATURI 
THE F1RSIW0HU AND SECONUWORQ OF THE ANSWER ENTERED IN (HE PARAMETER 
SPECIF 1CA1I0NS MUST HE ThE FXACT bll PATTERNS THAT A CORRECTLY 
UPtRATlNG ARlTHMtTIC UNIT WOULD GENERATE. 

THE PROGRAM ASSUMES THAT THE "CORRECT ANSWER" ENTERED IN THE 
CONSOLE DIALOG IS 1NDLEI) CUHHECT AND MAKES NU ATTEMPT 10 VALIDATE 
f HIS INPUT. IF THIS RESULT IS InCuRrECT OR IS ENTERED INCORRECTLY, 
aPUHlUUS ERRUR INDICATIONS WILL RESULT. 

THERE IS ALSO NU ATTEMPT MADE TO DETtRMlNE WHETHER THE GIVEN A/X-B/ 
Y UPERATOR CUMHINATION WILL PRODUCE AN EXPONENT UNDERFLOW, EXPONENT 
OVERFLOW, OH INTEGER OVERFLOW RESULT, AND THERE IS NO ATTEMPTED 
RECUVERY FOR THESE HARDWARE INTERRUPTS AND THE JOB WILL HE 
TERMINATED IF ANY OF THESE FAULTS UCCUR. 
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BINDING WITH INTERMEDIATE GLOBALS 



THt FACILITY HAS BEEN ADDED TU FORTRAN, ALGOL, ANU THE BINDER TO 
BIND ANU REPLACE PROCEDURES OR SUBPROGRAMS CUMPlLEU AT ANY DEGREE 
UF NESTING WITHIN AN ALOUL PROGRAM. ThU FACILITY CAN BE USED WITH 
(ht REVISED DUMPINFU AND LOAOlNFu IN ALGOL (SEE U0211 FOR A 
UE5CRIPU0N). THE OBJECTIVE IS 10 FACILITATE ALOOL-FORTR AN 
COMMUNICATION Al ALL NFSTlNG DEPTHS AS "ELL AS DEBUGGING ALGOL 
KKUGRAMS. 

IHL FORMAT IN ALGOL UR h ORTRAN IS TU COMPILE THE PROCFDURE OR 
SUBPMUGRAM AT THE LtVEL Al WHICH IT IS INTENDED TU RUN. THIS IS 
UUNE BY SEfTlNG THE LFVfcL N DOLLAR CARD UPTIUN AT COMPILE TIME. 
(THE LEVEL THAT AN ALGUL PROCEDURE IS INTENDED TU RUN AT MAY HE 
FUUNU BY COUNTING THE NESTING DEPTH IN FROM THE UUTER BLOCK UF THE 
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PRUGRAM AND ADDING TWO. THUS A GLOBAL PROCEDURE RUNS) AT LEVEL 3» A 
PROCEDURE NESTED INSIDE OF A GLOBAL PRUCtUURt RUNS AT LEVEL <» • ETC.). 
THIS PROCEDURE MAY THEN bE BOUND INIU A HOST WHERE IT HAS BEEN 
DECLARED EXTERNAL OR REPLACE A PROCEDURE ALREADY IN THE HOST. ALL 
VARIABLES THAT ARE GLOBAL TO THE SEPARATELY COMPILED PROCFOURE MUST 
BE DECLARED WITHIN BRACKETS PRIOR TO THE COMPILATION. PREVIOUSLY* 
UNLY TRUE GLOBAL VARIABLES APPEARED WITHIN THE BRACKETS* NOW ALL 
JHUSE VARIABLES WHICH CONSTiTOTE THE ENTIRE ENVlRUNMENT OF THE 
SEPARATELY COMPILED PROCEDURE (INCLUDING THOSE AT INTERMEDIATE 
LEVELS) MUST APPEAK. 

BINDER SYNTAX 



BlNUER SYNTAX FUR REPLACING OR BINDING A PROCEDURE DECLARED AT ANY 
LEVEL IS THE SAME AS FOR BINDING GLOBAL PROCEDURES* MERELY USE THE 
BIND INSTRUCTION OR THE USUAL DFKAULTS. IT IS NOW POSSIBLE HOWEVER 
TO HAVE SEVERAL REPLACEABLE OR EXTERNAL PROCEDURES WITH THE SAME 
NAME, SO THE BIND STATEMENT SYNTAX HAS BEEN EXTENDED TO INCLUDE 
PRUCEDURE QUALIFICATION. 

QUALIFIERS MAY BE USED IN EACH nf THE FOLLOWING THREE STATEMENTSi 

BIND <PROCEDURE IDENT IF IERXOUAL IF IERSxF ILE PART>J 
EXTERNAL <PROCEDURE IDENTIF lERxQUALIUEHS>; 
USE <IDENTIFIER> FOR <IOENT IF 1EHXQUAL1F URS>J 
<QUALiFlERS>ll« OF <PROCEDURF IDENT IF iERXQUALlF IERS>/ 

<EMPTY> 

FOR EXAMPLE. 

BIND PI 

WILL ATTEMPT TO BIND EVERY PROCEDURE NAMED P WITHIN THE HOST* IF 
MORE THAN ONE IS DECLARED IN THE PROGRAM (WHETHER OR NOT THE 
PROCEDURE IS ACTUALLY THERE OR JUST DECLARED EXTERNAL). THE BINDER 
WILL TRY TO BIND ALL OF THEM. IF THERE IS A PROCEDURE P CONTAINED 
HllhIN 6 AND A PROCEDURE P CUNTAINED WITHIN R» THE SIATEMENT 

BIND P OF 0> 
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WILL ATTtMPT TO BIND ONLY THL PROCEDURE P LUCATED WITHIN Q. 

UNLY THE QUALIFICATION NECESSARY TO UNlUUtLY IDENTIFY* WITHOUT 
UM1TTING ANY NESTING LEVEL, TMF PRUltDUHE TU ttt. BUUND IS REQUIRED* 
IN THE EVENT THEKE IS MURE TMAN UNE WAY TU SU UNIQUELY IDENTIFY THE 
PRuCEUURE. ANY UK THEM HILL WORK. 

IN THE EVENT THAT (HE BINDFK ATTEMPTS TU BIND A PROCEDURE AND DOES 
inU r FIND THE CUDE FILE OF THE PROCEDURE CbASED ON STANDARD BINDER 
DEFAULTS FUR CUDE FILE HTLES)» THE PROCEDURE WILL NUT BE BOUND AND 
A WARNING WILL BE GIVEN. 

IF THE SEPARATE HRUtEDUKE CONTAINS A PARAMETER OK TYPE MISMATCH 
wlfH ITS DECLAMATION IN THE HOST, UR IhE PROCEDURE IS COMPILED AT 

an incompatible level. the binder will issut a warning message and 
discontinue binding the hhucedure. c pkt v i uusl y » the binder would 
issue ekruk messages and nut lock ihe cude file if tht above 
conditions arose. now, huwever, it successfully "backs out" of 
binding the pruceuuhe so the core file can be locked.) true errors 
will still result frum mismatchfs between glubals. 

binding proceeds from the most global level id the least global 

LEyEL. FOR EXAMPLE. IF P IS CONTAINED IN (J. THE BINDER 
INSTRUCTIONS 

BIND PI RIND U; 

WILL RESULT FIHST IN u BEING RUUND AND THEN P BEINU BOUNO INTO Q, 

IHE MEANING UF QUALIFIER IN USE STATEMENTS IS SHOWN BY THE 
FOLLOWING EXAMPLE! 

Iwu SEPARATELY COMPILED PBOCFDURES P AND (J EACH REFFRENCE A 
VARIABLE X WHICH IS GLOBAL TO ThE PROCEDURES. M X OF P" SHOULD 
ACIUALLY BE REFEHENCING A VARIABLE NAMED Y IN THE HOST WHILE "X OF 
w" SHUULD BF MATCHED UP TO A VAHIABLE NAMED "X n IN THE HOST. THE 
USE SIATEMENlt "USE Y FUH X UF HI" WILL RESULT IN ONLY THE VARIABLE 
"X" REFERENCED HY P MAllHlNU UP 1U A "Y". if «Y" DID NOT FXIST IN 
IHt BUST. THE "K UF P" WUUli) HE ADDED AS A NEW GLObAL WITH A NAME 
U F " Y " . 
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ALGOL EXAMPLE 

CONSIDER THE FOLLOWING ALGOL PROGRAM* 

BEGIN 

HEAL X) FILE Fl 

PROCEDURE 01 

BEGIN 

REAL Yf 

PROCEDURE RJ EXTERNAL) 

HI 

IF Y«3 THEN XI«X + U 

END (if 

lit 

wR!lTE(F,/,X)J 

END. 

A SAMPLE PROCEDURE R TO BE bOUND INTO This PROGRAM COULD APPEAR AS 

FOLLOWS t 

$ SET LEVEL 4 

[REAL X.Y» FILE F»l 

PROCEDURE r; 

BEGIN 

Y»*X+3I 

WRITE (F./.Y)) 

END* 

THE BIND STATEMENT TO BIND INTO THE HOST COULD BE SIMPLY 

BIND HJ (OR BIND R FROM CODE KILE NAME). 

THE RESULTING PROGRAM WOULD HAVF THfc FOLLOWING OUTPUfl 

3 
1 

FORTRAN-ALGOL EXAMPLE 



COMMON BLOCKS MAY BE DECLARED AT INTERMEDIATE LEVELS IN ALGOL AND A 
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l-GHTHAN PHOGRAM UNIT MAY THEN REFERENCE THEM. FOR FXAMPLE. 
CONSIDER THE FULLOWiNG ALGOL PRnGRAMl 

UtGlN 

KILE f; 

HHUCEUURF PI 

BEGIN 

HEAL ARRAY AtUSO]! 

DOUBLE ARKAY d[U ■ AJ 

PHUCEUUHF Q> EXTERNAL; 

u; 

WRITE (F./.AUI. BtlO])) 

END P» 

RJ 

wRITE CF,"GUOUBYL">)l 

ENU. 

IT IS DESIHEU TO BlNU THE FOLLOWING FUKTRAN SUBROUTINE INTO THIS 
RRUURAMl 

S SET LEVtL 4 
SUBROUTINE U 
CUMMON /HLK/AA(50> 

UUUBLE PRECISION BB125) 
EUUlVALENCfc (AA.BB) 

AAU )*44 
BB(10)«3456 
HETUHN 
ENU 

IHtN THE USUAL USE STATEMENT (SFE DOoOB) MAY BE USED TU BIND IN THE 
COMMON BLOCK. ONLY THE BLOCK WILL NOW BE DECLARED INSIDE OF P 
KATHEH THAN GLOBALLY. THF BINDFR INSTRUCTIONS COULD BE AS FULLOwSt 

BIND Q) 

use A Fur /blk/; 

THt RESULTING OUTPUT SHOULU BE 44. 3t>6» AND GOODBYE. IN THAT ORDER. 
UUrLlCAfE 10 EXAMPLL 



U01<U BINDING INTFRMED LEVEL GLObALS - 02-1W3 



PA(iE 219 



CONSIDER THE FQkLOwlNG ALGOL PROGRAM 

BEGIN 

PROCEDURE P; BEGIN END) 

PROCEDURE Qt 

BEGIN 

PROCEDURE P; BEGIN END! 

PJ ' 

end; 

u; 
Pi 

END. 



ASSUME THAT 
PRUCLDURE P 



CREATED BY COMPILING A 
(I.E.. THE LEVEL IS 



A FILE CALLED "SEP/P" *AS 

SEPARATELY AT LFVEL FOUR. 
COMPATIBLE WITH THE PROCEDURE P NESTED IN U IN THE ABOVE EXAMPLE. 
BUT IS NOT COMPATIBLE WITH THE GLOBAL P.) THE BlNDEN INSTRUCTION 

BIND P FROM SEP/PJ 

WILL. AS STATED BEFORE. CAUSE THE B1NDEK TO REPLACE ALL PROCEDURES 
NAMED P. HOWEVER. WHEN THE BINDER ATTEMPTS TO REPLACE THE GLOBAL 
P. AN "INCOMPATIBLE LEVEL ERROR" WILL RESULT AND THE BINDER WILL 
DISCONTINUE BINDING P AT THAT POINT. LATER IT WILL SOCCFSSFULLY 
REPLACE THE P NESTED IN Q AND EVENTUALLY WILL LOCK THE CODE FILE. 
THE RESULTS WOULD HAVE BEEN THE SAME IK I HE INSTRUCTIONS HAD BEEN 

EXTERNAL P» 
BIND P OF Q; 

EXCEPT THAT NO ATTEMPT WOULD HAVE BEEN MADE TO BIND THE GLOBAL P. 
PRECEDENCE OF INPOT STATEMENTS 



IN CASES WHERE MURE THAN ONE STATEMENT MIGHT APPLY TO AN 
IDENTIFIER. THE FOLLOWING RULES APPLYl 

1« THE MOST QUALIFIED IDENTIFIER WHICH FITS THE ENVIRONMENT 
OF THE GIVEN IDENTIFIER WILL APPLY. 
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2. IT TWO STATEMENTS ARE ElJUALLY OUALIFIED THEN AN EXTERNAL 
STATEMENT WILL 1AKE PRECEDENCE OVER A BIND STATEMENT 
whlCH. IN TURN. WILL TAKE PRECEDENCE OVER A CBlND 
STATEMENT USED IN AUTOBIND. (USE STATEMENTS DO NOT 
CONFLICT WITH BIND, EXTERNAL, UR CBlND STATEMENTS AND 
THEHFFOHE THIS SECOND PRECEDENCE RULE DUES NOT APPLY TO 
USE STATEMENTS.) 

EXTERNAL STATEMENT 

IHt MEANING UF THE EXTEHNAL STATEMENT HAS BEEN EXPANUED SOMEWHAT TO 
MEAN THAT THE PRUCEDURE IS TU BE LEFT AS FOUND BY THE BINDER. <I*E., 
IF THE PROCEDURE IS EXTERNAL, LEAVE IT EXTERNAL! IF IT IS PRESENT* 
DO NUT TRt TU REPLACE IT.) THUS THE STATEMENTS! 

BIND PI 
EXTERNAL P OF (J) 

WILL RESULT IN THE blNDER ATTEMPTING TU BIND OR REPLACE ALL 
PRUCEUURES NAMED P EXCEPT THUSE NESTED IN PRUCEDURES NAMED Q. 

THE STATEMENT* 

EXTERNAL Pi 
bIND P OF «; 



WILL RESULT IN 
PRUCEDURES NAMED 
UTHER* 

ADDING GLUBALS 



THE BINDER ATTEMPTING TU BIND OR REPLACE ALL 
P WHICH ARF NESTED IN PROCEDURE NAMED AND NO 



IF A GLOBAL APPEARS IN A SEPARATELY COMPILED PROCEDURE THAT IS NOT 
DECLARED IN THE HUST, THE BINDER WILL, IF ABLE, ADD THE GLOBAL TO 
THE HUST* THE GLQbAL WILL BE ADDED IN AS A TRUE GLUBAL* I.E.. AT 
THE OUTERMOST bLUCK OF THE HOST. 

COMPILE TIME BINDING 



IHESE FEATURES FuR INTERMEDIATE LEVEL GLOBAL BINDING HAVE ALSO BEEN 
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ADDED TO AUTOBlND IN THE COMPILFRS. THUS. A HiGHEK LEVEL PROCEDURE 

may be compiled separately and bounu into a host with the same 
automatic features as global procedures. ^ or more details on 
auiubino. see u0004. 



uo2i7 .S^I 1 .!... £- -...lb.!?. Z £."."2... 

THIS NOTE REPLACES U0013 IN THE SYSTEM MISCELLANEA. 

iAbLtS FOR THE ALGOL* ESPUL, AND XALGOL COMPILERS AHE GENERATED BY 
A TABLE GENERATION PROGRAM WHICH CREATES A NEW SYMbULIt FILE OF THE 
COMPILER. THEREFORE* AS IN THE PAST. THERE IS NO NEED TO USE THE 
"INCLUDE" DOLLAR OPTION WHEN COMPILING ANY Q¥ THESE COMPILERS. 
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DOCUMENT 



SYSTEM MAKKETING 
NOTE NU. 



MAKKETING 
UATE 



ALUQL 
ALGOL 
ALGUL 
ALUQL 
ALGOL 
ALGOL 
ALGOL 
ALGUL 
ALGOL 
ALGOL 
ALGUL 
ALOQL 
ALGOL 
ALGOL 
ALGUL 
bAblC 
bASIC 
tiASIC 
UAblC 
bAblC 
dASlC 
bASIC 
bAblC 
bAblC 
bAblC 
bAblC 
bAbiC 
bAblC 
bAblC 
bAblC 



CCMHlLER 
COMPILER 
LANGUAGE 
LANGUAGE 
LANGUAGE 
LANGUAGE 
LANGUAGE 
LANGUAGE 
LANGUAGE 
LANGUAGE 
LANGUAGE 
LANGUAGE 
LANGUAGE 
LANGUAGE 
LANGUAGE 
LANGUAGE 
LANGUAGE 
LANGUAGE 
LANGUAGE 
LANGUAGE 
LANGUAGE 
LANGUAGE 
LANGUAGE 
LANGUAGE 
LANGUAGE 
LANGUAGE 
LANGUAGE 
LANGUAGE 
LANGUAGE 
LANGUAGE 



00158 


5000136 


06-72 


00183 


5000136 


06-72 


00144 


5000128 


06-72 


00115 


5G00W8 


06-72 


00147 


5000128 


06-72 


00156 


5000128 


06-72 


001 VI 


5000128 


06-72 


00211 


5000128 


06-72 


00218 


5000128 


U6-72 


00219 


5000128 


06-72 


00220 


5000128 


06-72 


00252 


50001*6 


06-72 


00253 


5000128 


06-72 


00266 


50001*8 


06-72 


00267 


5000128 


06-72 


00152 


5000383 


07-71 


00154 


5000383 


07-71 


00162 


5000363 


U7-71 


00163 


5000363 


07-71 


00164 


5000383 


07-71 


00177 


50003b3 


07-71 


00178 


5000383 


07-71 


00182 


5000383 


07-71 


00193 


5000363 


07-71 


00194 


5000363 


07-71 


00195 


5000383 


07-71 


00197 


5000363 


07-71 


00203 


5000383 


07-71 


00204 


5000363 


07-71 


00205 


5000363 


07-71 



UUCuMtNT 

bASlC LANGUAGE 
dASlC LANGUAGE 
bAMC LANGUAGE 
dAblC LANGUAGE 
dASiC LANGUAGE 
blNUEH 
blNDEH 

CANOE LANGUAGE 
CANUE LANGUAGE 
CANOE LANGUAGE 
CANOE LANGUAGE 
CANOt LANGUAGE 
CANOE OPERATION 
CANUE UPEHATIGN 
CANOE OPEHATION 
CANOE OPERATION 
CANOE OPERATION 
CANOE OPERATION 
CObOL REFERENCE 
COdOL REFERENCE 
CObOL REFERENCE 
CObOL REFERENCE 
CObOL REFERENCE 
OAlA MANAGEMENT 
DATA MANAGEMENT 
OATA MANAGEMENT 
UATA MANAGEMENT 
OATA MANAGEMENT 
UATA MANAGEMENT 
OATA MANAGEMENT 
UATA MANAGEMENT 
UATA MANAGEMENT 
UATA MANAGEMENT 
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bYbTEM 


MARKETING 


MAKKtTlNG 


NUTE 


NU. 

as m m 


UAFE 

• m ■ m 


00206 


5000383 


07-71 


00207 


5000383 


07-71 


00206 


5000363 


07-71 


00209 


5000383 


07-71 


00221 


5000383 


07-71 


00144 


5000045 


11-71 


00156 


5000045 


11-71 


00186 


5000318 


10-72 


00237 


5000318 


10-72 


00238 


5000318 


10-72 


00239 


5000318 


10-72 


00275 


5000318 


10-72 


00236 


5000615 


10-72 


[10240 


5000615 


10-72 


00276 


5000615 


10-72 


00277 


5000615 


10-72 


00282 


5000615 


10-72 


00283 


5000615 


10-72 


00224 


5000656 


02-73 


00226 


5000656 


02-73 


00229 


5000656 


02-73 


00247 


5000656 


02-73 


00249 


5000656 


10-71 


00254 


5000235 


Ul-73 


00255 


5000235 


01-73 


00256 


5000235 


01-73 


00257 


5000235 


01-73 


00258 


5000235 


01-73 


00259 


5000235 


01-73 


00260 


5000235 


01-73 


00261 


5000235 


01-73 


00262 


5000235 


01-73 


00263 


5000235 


01-73 



UUCUMENT 

UAlA MANAGEMENT 
UAlA MANAGEMENT 
DATA MANAGEMENT 
DATA MANAGEMENT 
UATA MANAGEMENT 
DATA MANAGEMENT 
OAIACUM FUNCTIUNAL 
UlALGOL LANGUAGE 
UCAkGOL LANGUAGE 
UCALGOL language 
ucalgul language 
ucalgql language 
ucalgul language 
UCmLGOL language 
UtALGOL language 
ucalgul language 
ucalgul language 

tSPuL LANGUAGE 
LSPOL LANGUAGE 
ESPOL LANGUAGE 
tSPuL LANGUAGE 
LSHQL LANGUAGE 
ESPUL LANGUAGE 
ESPUL LANGUAGE 
ESPUL LANGUAGE 
ESHUL LANGUAGE 
ESPUL LANGUAGE 
ESPQL LANGUAGE 
hUHTHAN REFFHENCE 
►OHTRAN REFERENCE 
FUmTRAN REFEKFNCE 
FUKTRAN REFFHENCE 
FURTRAN REFERENCE. 
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SYSTEM 


MARKETING 


MARKETING 




NUTE 

aaMK 


"> NO* 


OATE 




00264 


5000235 


01-73 




00265 


5000235 


01-73 




00268 


5000235 


01-73 




00269 


5000235 


01-73 




00284 


5000235 


01-73 




00290 


5000285 


01-73 




00279 


50U0060 


12-70 




noiiv 


5000052 


08-71 




001/6 


5000052 


08-71 




00192 


5000052 


U8-71 




00199 


5000052 


U8-71 




D0200 


5000052 


08-71 




00220 


5000052 


08-71 




0U252 


5U00052 


08-71 




00274 


5000052 


08-71 




00285 


5000052 


08-71 




00266 


5000052 


08-71 




00140 


5000094 


06-72 




00156 


5000094 


06-72 




00158 


5000094 


06-72 




00166 


5000094 


06-72 




00241 


5000094 


06-72 




00242 


5000094 


06-72 




00243 


5U00094 


06-72 




00244 


5000094 


06-72 




00245 


5U00094 


06-72 




00252 


5U00094 


06-72 




00270 


5000094 


06-72 




00144 


5000458 
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CANOE 

ALGOL 

MCP-DA1ACM 

DCALGUL 

DATACUM 

0M6700 
BACKUP 
RJE 
CANDE 
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* m m m 

KEtUKO COUNT 

RECOVERY FOR DM6700 DESIGN OF 

RELATIONAL OPERATORS 

REPORTING OCP FAULT 

KEUUEST HANDLER EXFCUTION DM - 

REQUIRED ITEMS 

RESTORE & DATA STMT EXTENSIONS 

RESULT DCP FAULT 

RESULT UPDATE LINE ATTRIBUTES 



RESULTS 
RETRY 

RJL 
RJE 
RJL 
RJL BACKUPS 



DIALOUT ERROR 

INITIALIZE 

DP MfcSSAUE TO 

FURMMESSAGE THROUGH 

LUGANALYZEH THROUGH 

PRIORITY UF 



RJE STATIONS 
RJE TERMINALS 
ROUTINE 



SS BETWEEN 

MULTISTATION 

SHORT bLOCK USE 



RSC INPUT MESSAGt AX 

RSC MESSAGE RF 

HSC OUTPUT TO INACTIVE STATION 
RSVP S, SNTX HISTRY HRQCSNG FOR 
HSVP AND ACCtPT STljR bY 

Him JOBS WITH PARAMETERS 
SOL - INDEX PARAMETERS 
SDL EXECUTION UM - 

SDL IMPROVEMENTS DM - 

SEARCHING PRINT FRF 

SE»»MNTATN ALGOL - USR CONTHOliD 
SEHAHATE COMPILES 
SESSION NUMBHSJ SPLIT LUUGINbJ 
SET WITH IA MOUHY UHOEH OF DJ 
*ETS GLOBAL FUR EMbFODED 



SYSTEM 




NUTE 


f-UNCTlUN 


00179 


BACKUP 


00264 


DM6700 


00i»07 


BASIC 


DC240 


CANOE 


00255 


DM6700 


D0262 


DM6700 


D0164 


BASIC 


00233 


MCP-DATACM 


00265 


MCP-DAlACM 


D0192 


DC^PROGEN 


00167 


NOL 


00173 


RJL 


00168 


RJE 


00223 


RJE 


00167 


RJE 


001V0 


RJE 


D0212 


RJL 


00249 


CObOL 


00214 


RJL 


1)0222 


RJE 


00216 


RJE 


00236 


CANDE 


00213 


RJL 


00159 


KJE 


00268 


DM6700 


00258 


UMC700 


00256 


UM6700 


00215 


RJE 


00278 


ALUUL 


00246 


PL! 


00239 


CANOE 


00263 


DM6700 


00260 


DM6700 
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SHURT BLOCK OSE ROUTINE 
SIGN APOSTROPHE - AS COMMENT 
SLICING ANU CUUE SWAPPING TIME 
SM MESSAGE IMPLEMENTATION 
SNTx HISTRY PROCSNG FOR RSVP & 
SURT TIMING PREUICTOR 
SPLCIflER LANGOAGE KEY 

SPLIT LOGGING! SESSION NUMbRb! 
SS BETWEEN RJE STATIONS 
STATEMENT TRACE 

STATEMENT OOLLAR CAnD 

STATEMENT SWITCH GO 10 

STATEMENT IMPROVEMENTS "PRINl" 
STATEMENT IN BASK "INPUT" 
STATEMENT SYNTAX "ON" 

STATEMENT SYNTAX CASF 

STATEMENTS INPUT-OOTPOT 
STATION ERROR SUbTRACT 

STATION RSC OOTPUT 10 INACTIVF 
STATION-OCWRITE FUNCTION MDVF 
STATIONS SS BETWEEN RJE 
STATISTICS IN l-ORTRAN 
STATUS OH - NEW 

STMT "OEF" FUNCTIONS MULTIPLE 
STMT EXTENSIUNS RESTORE & OATA 

siup er rsvp ano accept 

STUP 1N0ICAT0R "ENO" AS RANGE 
iTURE CURRENT AFTER MUUlFY - 
STRING FUNCTION "LENGTH" 
STRING FUNCTIONS 
S>TR1NG VARIABLE NAMES 
STRUCTURE RANUUM 

SUBTRACT STATION ERROR 



YSTEM 




NOTE 


FUNCTION 


DQ249 


COBOL 


D0204 


BAbIC 


00172 


MCP 


00201 


RJE 


D023B 


CANOE 


00148 


PREOICTSURT 


noieo 


BACKUP 


00239 


CANUE 


00190 


RJE 


002 31 


fOHlRAN 


00152 


bASlC 


00169 


NOL 


00221 


BASIC 


00209 


BASIC 


00252 


ALGOL 


00218 


ALbUL 


00206 


bASIC 


00176 


MCP*OATACM 


D0216 


RJL 


00200 


MCP-OATACM 


00190 


RJE 


[10287 


FORTRAN 


1)0290 


UM6700 


00162 


bASIC 


00164 


BASIC 


1)0213 


RJE 


OOlbl 


BACKUP 


00264 


0M6700 


00154 


BASIC 


none 


BA^IC 


00177 


BASIC 


00261 


0M6700 


00176 


MCR-OAl ACM 
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SWAPPING 

SWAPPING T IMt SLICING AND CODF 

SWITCH GU TO STATEMENT 

sync itun Inhibit 

SYNTAX EXPANDED "IK" 

SYNTAX ••On*' statement 

SYNTAX CASE STATFMENT 

SYSTEM OCSTATUS 

SYSTEM MCSII NEW FEATURES FUR 
SYSTEM" VERB "CALL 

Tanking ocalggl queue 
task attribute "history" 
taskvalue 

multistat1un rje 
arithmetic 

FGHMMfSSAGF 
LOGANALYZER 
TIME AND DATA FUNCTIONS 
TIME SLICING AND CQUE SWAPPING 
T1MELIMIT FILE ATTRlbUTES - 
TIMING PREUICTOH SORT 

TRACE STATEMENT 

TRANSFER CURE TU CORE OATA 
TRAP BUFFER CHAOS 

TRUNCATED IOENl IF IEHS 
UNITE NUL A DCPPROGEN 

UPDATE LINE ATTRIBUTES RESULT 
UPUATL LINE UCWRlTE FUNCTION 
USE ROUTINE SHORT BLOCK 

USM CONTROLD SEGMNTATN ALGOL - 
VALUE AND BONAME 

VALUES CARRIAGE CUNTRUL 

VARIABLE BYTE 



SYSTEM 
NOTE FUNLUUN 



TERMINALS 
TEST AM 

THROUGH RJE 
THHQUGH RJE 



D02B2 CANOE 

00172 MCP 

00169 NDL 

00161 DCPPROGEN 

00205 BASIC 

00252 ALUUL 

00218 ALGOL 

00250 OCSTATUS 

00251 MCSII 
0O2M7 CObOL 
00279 UATACOM 

00248 MCP 

00219 ALt»UL 
00212 RJE 
00137 

00188 RJE 
00223 RJE 
00163 bAMC 
00172 MCP 
00191 MCP-I-U 

00U8 PRE01CTSURT 

00231 FOHTRAN 

00165 FOHTRAN 

00277 CANOE 
00160 FOHTRAN 
00272 NOL 
00285 MCP-OATACM 
00199 MCP-OATACM 

00249 CObOL 

00278 ALGOL 

00189 RJE 
00282 1-0 
00168 NDL 
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SYSTtM 

KWlC NOTE FUNCTION 

VANlABLE NAMLS STRING 00177 BASIC 

VARIABLES IMPLEMENTEU FNTRY 00174 PL! 

VAHIANT PAUFSKIP 1)0237 CANOE 

VECTOR MODE IN ALGOL ft ^URlRAN 00145 ALGOL 

VERB "CALL SYSTEM" 00247 COBOL 

wAKMiNG DM - OOL 00269 DM6700 

wllh 1A MOO If Y UKDfcN Of OJ SET 00263 UM6700 

with PARAMETERS HUN JObS 0015V KJE 

wQKO INTRINSIC "STFF" THE 00244 ESPOL 

rtOKK FLOW MANAGEMENT 00210 MCP 

hRITEAFTER OOLLAK OPTION 00270 ESPOL 



